Changeset 3666 for LMDZ6/trunk/libf/phylmd/tropopause_m.F90

Timestamp:

Apr 20, 2020, 12:13:34 PM (5 years ago)

Author:

lfalletti

Message:

Adding changes for Reprobus

File:

• LMDZ6/trunk/libf/phylmd/tropopause_m.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/tropopause_m.F90

@@ -17 +17 @@
   USE geometry_mod, ONLY: latitude_deg, longitude_deg
   USE vertical_layers_mod, ONLY: aps, bps, preff
+#ifdef REPROBUS
+  USE chem_rep, ONLY: itroprep
+#endif
 
 !-------------------------------------------------------------------------------
@@ -108 +111 @@
       DO kt=1,klev-1; IF(pplay(i,kt+1)>dyn_tropopause(i)) EXIT; END DO; kp=kt
     END IF
+#ifdef REPROBUS
+    itroprep(i)=MAX(kt,kp)
+#endif
     !--- LAST TROPOSPHERIC LAYER INDEX NEEDED
     IF(PRESENT(itrop)) itrop(i)=MAX(kt,kp)