Changeset 4241 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd

Timestamp:

Sep 9, 2022, 4:33:13 PM (22 months ago)

Author:

dcugnet

Message:

Fix for reprobus: "types_trac" (parsed version of "type_trac" with "|") must
be used instead of type_trac most of the time.

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -140 +140 @@
 
   ! Initializations for Reprobus
-  IF (type_trac == 'repr') THEN
+  IF (ANY(types_trac == 'repr')) THEN
 #ifdef REPROBUS
     call Init_chem_rep_phys(klon_omp,nlayer)
@@ -151 +151 @@
 
 
-  IF (type_trac == 'repr') THEN
+  IF (ANY(types_trac == 'repr')) THEN
 #ifdef REPROBUS
     call init_reprobus_para( &
@@ -166 +166 @@
   END IF
 
-  IF (type_trac == 'inca' .OR. type_trac == 'inco') THEN
+  IF (ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) THEN
 #ifdef INCA
      CALL init_inca_dim_reg(nbp_lon, nbp_lat - 1, &