*
This routine reads the wind fields for the nested model domains. *
It is similar to subroutine readwind, which reads the mother domain. *
*
Authors: A. Stohl, G. Wotawa *
*
8 February 1999 *
*
Last update: 17 October 2000, A. Stohl *
*
*
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 * *
Changes, Bernd C. Krueger, Feb. 2001: * Variables tthn and qvhn (on eta coordinates) in common block * 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 *
READ NEXT LEVEL OR PARAMETER
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer | :: | indj | ||||
integer | :: | n | ||||
real | :: | uuhn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,maxnests) | ||||
real | :: | vvhn(0:nxmaxn-1,0:nymaxn-1,nuvzmax,maxnests) | ||||
real | :: | wwhn(0:nxmaxn-1,0:nymaxn-1,nwzmax,maxnests) |