Changeset 2071 for trunk/LMDZ.GENERIC/libf
- Timestamp:
- Jan 18, 2019, 2:18:01 PM (6 years ago)
- Location:
- trunk/LMDZ.GENERIC/libf/phystd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/thermcell_env.F90
r2060 r2071 12 12 USE print_control_mod, ONLY: prt_level 13 13 USE thermcell_mod, ONLY: RKAPPA 14 USE watercommon_h, ONLY: RLvCp, RETV, watersat14 USE watercommon_h, ONLY: RLvCp, RETV, Psat_water 15 15 USE planete_mod, ONLY: preff 16 16 … … 54 54 INTEGER ig, ll 55 55 56 REAL dummy 57 56 58 !============================================================================== 57 59 ! Initialization … … 75 77 DO ll=1,nlay 76 78 DO ig=1,ngrid 77 CALL watersat(pt(ig,ll), pplev(ig,ll), pqsat(ig,ll))79 CALL Psat_water(pt(ig,ll), pplev(ig,ll), dummy, pqsat(ig,ll)) 78 80 ENDDO 79 81 ENDDO -
trunk/LMDZ.GENERIC/libf/phystd/thermcell_plume.F90
r2069 r2071 23 23 USE ioipsl_getin_p_mod, ONLY : getin_p 24 24 USE print_control_mod, ONLY: prt_level 25 USE watercommon_h, ONLY: RLvCp, RETV, watersat25 USE watercommon_h, ONLY: RLvCp, RETV, Psat_water 26 26 USE thermcell_mod 27 27 … … 119 119 REAL zltup ! useless here 120 120 121 REAL dummy 122 121 123 LOGICAL active(ngrid) ! if the plume is active at ig,l (speed and incoming mass flux > 0 or l=lmin) 122 124 LOGICAL activetmp(ngrid) ! if the plus is active at ig,l (active=true and outgoing mass flux > 0) … … 239 241 240 242 DO ig=1,ngrid 241 CALL watersat(ztemp(ig), pplev(ig,l), zqsat(ig))243 CALL Psat_water(ztemp(ig), pplev(ig,l), dummy, zqsat(ig)) 242 244 ENDDO 243 245 … … 431 433 DO ig=1,ngrid 432 434 IF (activetmp(ig)) THEN 433 CALL watersat(ztemp(ig), pplev(ig,l), zqsatth(ig,l))435 CALL Psat_water(ztemp(ig), pplev(ig,l), dummy, zqsatth(ig,l)) 434 436 ENDIF 435 437 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.