Changeset 1621 for trunk/LMDZ.VENUS/libf/phyvenus/flott_gwd_ran.F90
- Timestamp:
- Oct 25, 2016, 9:23:21 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/flott_gwd_ran.F90
r1591 r1621 1 1 SUBROUTINE FLOTT_GWD_RAN(NLON,NLEV,DTIME, pp, pn2, & 2 tt,uu,vv,zustr,zvstr,d_t, d_u, d_v) 2 tt,uu,vv, plevmoy, & 3 zustr,zvstr,d_t, d_u, d_v) 3 4 4 5 !---------------------------------------------------------------------- … … 14 15 15 16 use dimphy 16 use moyzon_mod, only: plevmoy17 17 implicit none 18 18 … … 32 32 REAL, intent(in):: UU(NLON, NLEV) , VV(NLON, NLEV) 33 33 ! Hor winds at full levels 34 REAL, intent(in) :: plevmoy(NLEV+1) ! (planet-averaged) mean pressure (Pa) at interlayers 34 35 35 36 ! 0.2 OUTPUTS
Note: See TracChangeset
for help on using the changeset viewer.