Changeset 3279 for trunk/LMDZ.GENERIC
- Timestamp:
- Mar 20, 2024, 4:29:24 PM (9 months ago)
- Location:
- trunk/LMDZ.GENERIC/libf/phystd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/inifis_mod.F90
r3277 r3279 1029 1029 call getin_p("moistadjustment_generic",moistadjustment_generic) 1030 1030 if (is_master) write(*,*)trim(rname)//": moistadjustment_generic = ", moistadjustment_generic 1031 1032 if (is_master) write(*,*)trim(rname)//": Moist convection inhibition for GCS ?" 1033 moist_convection_inhibition=.false. ! default value 1034 call getin_p("moist_convection_inhibition",moist_convection_inhibition) 1035 if (is_master) write(*,*)trim(rname)//": moist_convection_inhibition = ", moist_convection_inhibition 1031 1036 1032 1037 if (is_master) write(*,*)trim(rname)//": Virtual correction ?" -
trunk/LMDZ.GENERIC/libf/phystd/moistadj_generic.F90
r3276 r3279 6 6 use ioipsl_getin_p_mod, only: getin_p !-> to get the metallicity 7 7 use comcstfi_mod, only: r, cpp, mugaz 8 use callkeys_mod, only: moist_convection_inhibition 8 9 9 10 implicit none … … 182 183 183 184 ! calculate moist convection inhibition criterion 184 IF ( epsi_generic .gt. 1) THEN ! GCS molecular weight is heavier than dry gas:185 IF (moist_convection_inhibition .and. (epsi_generic .gt. 1)) THEN ! GCS molecular weight is heavier than dry gas: 185 186 ! inhibition of moist convection if vapor amount exceeds q_cri (Eq. 17 of Leconte et al. 2017) 187 write(*,*) 'inhibition of moist convection if vapor amount exceeds a critical mixing ratio (see Leconte et al. 2017)' 186 188 DO k = 1, nlayer 187 189 DO i = 1, ngrid
Note: See TracChangeset
for help on using the changeset viewer.