Changeset 1916 for trunk/LMDZ.GENERIC
- Timestamp:
- Apr 6, 2018, 12:58:13 PM (7 years ago)
- Location:
- trunk/LMDZ.GENERIC/libf/phystd
- Files:
-
- 1 deleted
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90
r1883 r1916 15 15 16 16 use radinc_h, only : L_NSPECTI,L_NSPECTV,naerkind 17 use watercommon_h, only : RLVTT, Psat_water,epsi 17 use watercommon_h, only : RLVTT, Psat_water,epsi,su_watercycle 18 18 use gases_h, only: gnom, gfrac 19 19 use radcommon_h, only: sigma, glat, grav, BWNV -
trunk/LMDZ.GENERIC/libf/phystd/watercommon_h.F90
r1315 r1916 23 23 contains 24 24 25 !================================================================== 26 subroutine su_watercycle 27 28 use comcstfi_mod, only: cpp, mugaz 29 implicit none 30 31 32 !================================================================== 33 ! 34 ! Purpose 35 ! ------- 36 ! Set up relevant constants and parameters for the water cycle, and water cloud properties 37 ! 38 ! Authors 39 ! ------- 40 ! Robin Wordsworth (2010) 41 ! Jeremy Leconte (2012) 42 ! 43 !================================================================== 44 45 epsi = mH2O / mugaz 46 RCPD = cpp 47 48 !RV = 1000.*R/mH2O 49 RV = 1000.*8.314/mH2O ! caution! R is R/mugaz already! 50 51 RCPV = 1.88e3 ! specific heat capacity of water vapor at 350K 52 53 RVTMP2 = RCPV/RCPD-1. ! not currently used... 54 55 end subroutine su_watercycle 25 56 57 58 26 59 !================================================================== 27 60 subroutine Psat_water(T,p,psat,qsat)
Note: See TracChangeset
for help on using the changeset viewer.