Changeset 5091 for LMDZ6/branches/Amaury_dev/libf/phy_common

Timestamp:

Jul 20, 2024, 11:17:09 PM (6 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)

Location:

LMDZ6/branches/Amaury_dev/libf/phy_common

Files:

• mod_phys_lmdz_mpi_data.F90 (modified) (2 diffs)
• physics_distribution_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phy_common/mod_phys_lmdz_mpi_data.F90

@@ -49 +49 @@
   SUBROUTINE init_phys_lmdz_mpi_data(nbp, nbp_lon, nbp_lat, nbp_lev, grid_type, nvertex, communicator)
   USE lmdz_mpi
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
   IMPLICIT NONE
     INTEGER,INTENT(IN) :: nbp
@@ -174 +175 @@
     CALL Print_module_data
 
-#ifdef INCA
+  IF (CPPKEY_INCA) THEN
        CALL init_inca_para( &
             nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
             distrib,nvertex, grid_type,communicator)
-#endif
+  END IF
     
   END SUBROUTINE Init_phys_lmdz_mpi_data

LMDZ6/branches/Amaury_dev/libf/phy_common/physics_distribution_mod.F90

@@ -17 +17 @@
   USE CHEM_REP, ONLY : Init_chem_rep_phys
 #endif
-
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
   IMPLICIT NONE
     INTEGER,INTENT(IN) :: grid_type 
@@ -33 +33 @@
     CALL init_dimphy(klon_omp,nbp_lev)
 
-#ifdef INCA
+  IF (CPPKEY_INCA) THEN
        CALL Init_inca_dim(klon_omp,nbp_lev)
-#endif
+  END IF
 
 #ifdef REPROBUS