readwind_ecmwf Subroutine

public subroutine readwind_ecmwf(indj, n, uuh, vvh, wwh)

                                                                 *
         TRAJECTORY MODEL SUBROUTINE READWIND                    *
                                                                 *

                                                                 *
         AUTHOR:      G. WOTAWA                                  *
         DATE:        1997-08-05                                 *
         LAST UPDATE: 2000-10-17, Andreas Stohl                  *
         CHANGE: 11/01/2008, Harald Sodemann, GRIB1/2 input with *
                             ECMWF grib_api                      *
         CHANGE: 03/12/2008, Harald Sodemann, update to f90 with *
                             ECMWF grib_api                      *
                                                                 *

Changes, Bernd C. Krueger, Feb. 2001: * Variables tth and qvh (on eta coordinates) in common block * * Unified ECMWF and GFS builds * Marian Harustak, 12.5.2017 * - Renamed from readwind to readwind_ecmwf * * L. Bakels, 2021: OpenMP parallelisation (following CTM version) * *
Anne Tipka, Petra Seibert 2021-02: implement new interpolation * for precipitation according to #295 using 2 additional fields * change some double loops in wrong order to forall constructs * *

                                                                 *

DESCRIPTION: * * READING OF ECMWF METEOROLOGICAL FIELDS FROM INPUT DATA FILES. THE * INPUT DATA FILES ARE EXPECTED TO BE AVAILABLE IN GRIB CODE * * INPUT: * indj indicates number of the wind field to be read in * n temporal index for meteorological fields (1 to 3)* * IMPORTANT VARIABLES FROM COMMON BLOCK: * * wfname File name of data to be read in * nx,ny,nuvz,nwz expected field dimensions * nlev_ec number of vertical levels ecmwf model * uu,vv,ww wind fields * tt,qv temperature and specific humidity * ps surface pressure * *

TEMPERATURE U VELOCITY V VELOCITY SPEC. HUMIDITY SURF. PRESS. W VELOCITY SNOW DEPTH SEA LEVEL PRESS. CLOUD COVER 10 M U VELOCITY 10 M V VELOCITY 2 M TEMPERATURE 2 M DEW POINT LARGE SCALE PREC. CONVECTIVE PREC. SENS. HEAT FLUX SOLAR RADIATION EW SURFACE STRESS NS SURFACE STRESS ECMWF OROGRAPHY STANDARD DEVIATION OF OROGRAPHY ECMWF LAND SEA MASK CLWC Cloud liquid water content [kg/kg] CIWC Cloud ice water content QC Cloud liquid water content [kg/kg]

Arguments