Changeset 5250 for LMDZ6/trunk/libf/dyn3dmem/gcm.F90

Timestamp:

Oct 22, 2024, 11:55:35 AM (6 hours ago)

Author:

abarral

Message:

Wrap uses of cpp key CPP_PHYS

File:

• LMDZ6/trunk/libf/dyn3dmem/gcm.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/dyn3dmem/gcm.F90

@@ -20 +20 @@
   USE control_mod
 
-#ifdef CPP_PHYS
   USE iniphysiq_mod, ONLY: iniphysiq
-#endif
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad
   USE logic_mod ! all of it, because of copyin clause when calling leapfrog
@@ -29 +27 @@
                        dt,hour_ini,itaufin
   USE mod_xios_dyn3dmem, ONLY: xios_dyn3dmem_init
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
+
 
   IMPLICIT NONE
@@ -415 +415 @@
   IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
      ! Physics:
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
      CALL iniphysiq(iim,jjm,llm, &
           distrib_phys(mpi_rank),comm_lmdz, &
@@ -421 +421 @@
           rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
           iflag_phys)
-#endif
+END IF
   ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))