Changeset 4358 for LMDZ6/trunk/libf/phylmd/tracinca_mod.F90

Timestamp:

Nov 30, 2022, 4:37:30 PM (19 months ago)

Author:

dcugnet

Message:

• remove "config_inca" variable from "control_mod" and "infotrac_phy" (read in infotrac)
• only kept version of "type_trac" is in tracinca ; few tests are moved from infotrac to this module.
• simplify and generalize a bit the routines "phyetat0_get" and "phyetat0_srf" from phyetat0, converted to a module.
• fix the isotopic version: few "USE … » were misplaced between ISOVERIF CPP keys
• fix the old water and derived isotopes names in the ISOTRAC case

File:

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

LMDZ6/trunk/libf/phylmd/tracinca_mod.F90

@@ -12 +12 @@
                      ! config_inca='chem' => INCA with chemistry
                      ! config_inca='aero' => INCA with aerosols
+                     ! config_inca='aeNP' => INCA with aerosols NP (?)
 CONTAINS
 
@@ -17 +18 @@
     ! This subroutine initialize some control varaibles. 
 
-    USE infotrac_phy, ONLY: nbtr
-    USE ioipsl_getin_p_mod, ONLY: getin_p
+    USE infotrac_phy, ONLY: nbtr, types_trac
     IMPLICIT NONE
     
@@ -25 +25 @@
     LOGICAL,INTENT(OUT) :: lessivage
     
-    
     ! Initialization
     lessivage  =.FALSE.
     aerosol(:) = .FALSE.
+
+    !--- COHERENCE TEST BETWEEN "type_trac" AND "config_inca"
+    IF((ANY(types_trac == 'inca') .OR. ANY(types_trac == 'inco')) .AND. ALL(config_inca /= ['aero', 'aeNP', 'chem']))&
+       CALL abort_gcm('tracinca_init', 'INCA enabled, but unknown config_inca = "'//TRIM(config_inca)//'".'          &
+                             //'Please modify "run.def"', 1)
+
+    !--- PROBLEM IF "config_inca" DIFFERS FROM "none" AND INCA HAS NOT BEEN ACTIVATED
+    IF(ALL(types_trac /= 'inca') .AND. ALL(types_trac /= 'inco')  .AND.     config_inca /= 'none') &
+       CALL abort_gcm('tracinca_init', 'INCA disabled, but config_inca = "'//TRIM(config_inca)//'" should be "none".'&
+                             //'Please modify "run.def"', 1)
 
   END SUBROUTINE tracinca_init