| 1 | |
|---|
| 2 | subroutine PHY_Atm_DY_ALLOC |
|---|
| 3 | |
|---|
| 4 | !------------------------------------------------------------------------------+ |
|---|
| 5 | ! Fri 7-Jun-2013 MAR | |
|---|
| 6 | ! | |
|---|
| 7 | ! subroutine PHY_Atm_DY_ALLOC allocates prognostic variables of | |
|---|
| 8 | ! Atmospheric Turbulence Scheme used by MAR | |
|---|
| 9 | ! | |
|---|
| 10 | ! version 3.p.4.1 created by H. Gallee, Tue 12-Mar-2013 | |
|---|
| 11 | ! Last Modification by H. Gallee, Fri 7-Jun-2013 | |
|---|
| 12 | ! | |
|---|
| 13 | !------------------------------------------------------------------------------+ |
|---|
| 14 | |
|---|
| 15 | |
|---|
| 16 | use Mod_Real |
|---|
| 17 | use Mod_PHY____grd |
|---|
| 18 | use Mod_PHY_DY_kkl |
|---|
| 19 | |
|---|
| 20 | |
|---|
| 21 | IMPLICIT NONE |
|---|
| 22 | |
|---|
| 23 | |
|---|
| 24 | |
|---|
| 25 | ! ================================= |
|---|
| 26 | ! ALLOCATION Mod_PHY_DY_kkl - BEGIN |
|---|
| 27 | ! ================================= |
|---|
| 28 | |
|---|
| 29 | allocate ( psa_DY(kcolp ) ) ! Pressure Thickness [kPa] |
|---|
| 30 | allocate ( ExnrDY(kcolp,mzpp) ) ! Potential Exner pa **(R/Cp) [xxx] |
|---|
| 31 | allocate ( Z___DY(kcolp,mzpp) ) ! Geopotential, level k , i.e. = gZ(k) / g [m2/s2] |
|---|
| 32 | allocate ( ZmidDY(kcolp,mzpp) ) ! Geopotential, level k-1/2, i.e. = (gZ(k)+gZ(k-1))/(2g) [m2/s2] |
|---|
| 33 | |
|---|
| 34 | allocate ( TmidDY(kcolp,mzpp) ) ! Temperature , level k+1/2, i.e. = (Ta(k)+Ta(k+1))/ 2 [K] |
|---|
| 35 | allocate ( Ta__DY(kcolp,mzpp) ) ! Temperature , level k , i.e. = Ta(k) [K] |
|---|
| 36 | allocate ( pkt_DY(kcolp,mzpp) ) ! Pseudo P.T. , level k [K] |
|---|
| 37 | allocate ( windDY(kcolp,mzp ) ) ! Wind Speed, Horizontal [m/s] |
|---|
| 38 | allocate ( ua__DY(kcolp,mzp ) ) ! Wind Speed, x-Direction [m/s] |
|---|
| 39 | allocate ( va__DY(kcolp,mzp ) ) ! Wind Speed, y-Direction [m/s] |
|---|
| 40 | allocate ( wa__DY(kcolp,mzp ) ) ! Wind Speed z-Direction [m/s] |
|---|
| 41 | allocate ( roa_DY(kcolp,mzp ) ) ! Air Volumic Mass, Layer k [Mg/m3] |
|---|
| 42 | allocate ( roamDY(kcolp,mzp ) ) ! Air Volumic Mass, Level k+1/2 [Mg/m3] |
|---|
| 43 | |
|---|
| 44 | allocate ( qv__DY(kcolp,mzpp) ) ! Specific Humidity [kg/kg] |
|---|
| 45 | ! #LD allocate ( ld_H2O(kcolp,mzpp) ) ! Loading (Humidity, Hydrometeors, Aerosols ...) [-] |
|---|
| 46 | |
|---|
| 47 | ! ================================= |
|---|
| 48 | ! ALLOCATION Mod_PHY_DY_kkl - END |
|---|
| 49 | ! ================================= |
|---|
| 50 | |
|---|
| 51 | |
|---|
| 52 | |
|---|
| 53 | end subroutine PHY_Atm_DY_ALLOC |
|---|
