Changeset 5827 for LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

Timestamp:

Sep 22, 2025, 3:26:41 PM (2 months ago)

Author:

musat

Message:

Suite et correction commission 5825 : iflag_tropo devient iflag_tropopause_height
Ionela Musat

File:

• LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -1629 +1629 @@
        iflag_phytrac = 1 ! by default we do want to call phytrac
        CALL getin_p('iflag_phytrac',iflag_phytrac)
-       iflag_tropo = 0 ! IM: iflag_tropo = 0 => PV tropopause; iflag_tropo=1 => LR tropopause
-       CALL getin_p('iflag_tropo', iflag_tropo)
+       iflag_tropopause_height = 0 ! IM: iflag_tropopause_height = 0 => PV tropopause; iflag_tropopause_height=1 => LR tropopause
+       CALL getin_p('iflag_tropopause_height', iflag_tropopause_height)
 IF (CPPKEY_DUST) THEN
        IF (iflag_phytrac.EQ.0) THEN
@@ -3000 +3000 @@
           IF(adjust_tropopause) THEN
              CALL stratosphere_mask(missing_val, pphis, t_seri, pplay, latitude_deg)
-             IF(iflag_tropo.EQ.0) THEN
+             IF(iflag_tropopause_height.EQ.0) THEN
                dyntropo=dyn_tropopause(t_seri, ztsol, paprs, pplay, rot)
-             ELSEIF(iflag_tropo.EQ.1) THEN
+             ELSEIF(iflag_tropopause_height.EQ.1) THEN
                dyntropo=p_tropopause
              ENDIF