Changeset 5091 for LMDZ6/branches/Amaury_dev/libf/phylmd/tracinca_mod.F90

Timestamp:

Jul 20, 2024, 11:17:09 PM (4 months ago)

Author:

abarral

Message:

Move lmdz_netcdf_format.F90 -> lmdz_cppkeys_wrapper.F90 to handle other CPP keys
Replace all (except wrapper) use of CPP_PHYS by fortran logical
Refactor makelmdz_fcm (put blocks into functions, use modern bash)

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/tracinca_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/tracinca_mod.F90

@@ -62 +62 @@
     USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat
     USE aero_mod, ONLY : naero_grp
+    USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
     IMPLICIT NONE
     
@@ -145 +146 @@
     END DO
   
-#ifdef INCA
+IF (CPPKEY_INCA) THEN
     IF (config_inca == 'aero' .OR. config_inca == 'chem') THEN 
        zpmfu(:,:)=pmfu(:,:)       
@@ -159 +160 @@
          rh,tau_aero,piz_aero,cg_aero,   &
          rfname,ccm,lafin)
-#endif
-
-
-#ifdef INCA
+
     CALL chemmain (tr_seri, &   !mmr
          nstep,      & !nstep
@@ -198 +196 @@
          nbp_lat,    & !ny
          source )
-#endif
+END IF
     
     CALL VTe(VTinca)