Changeset 5250 for LMDZ6/trunk/libf/dynphy_lonlat

Timestamp:

Oct 22, 2024, 11:55:35 AM (7 weeks ago)

Author:

abarral

Message:

Wrap uses of cpp key CPP_PHYS

Location:

LMDZ6/trunk/libf/dynphy_lonlat

Files:

• calfis.F90 (modified) (3 diffs)
• calfis_loc.F90 (modified) (9 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/calfis.F90

@@ -31 +31 @@
   USE infotrac, ONLY: nqtot, tracers
   USE control_mod, ONLY: planet_type, nsplit_phys
-#ifdef CPP_PHYS
   USE callphysiq_mod, ONLY: call_physiq
-#endif
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
   USE comvert_mod, ONLY: preff, presnivs
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
 
   IMPLICIT NONE
@@ -475 +474 @@
   zdqfic(:,:,:)=0.
 
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
 
    do isplit=1,nsplit_phys
@@ -534 +533 @@
    enddo ! of do isplit=1,nsplit_phys
 
-#endif
+END IF
   ! of #ifdef CPP_PHYS
 

LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90

@@ -26 +26 @@
         pdqfi, &
         pdpsfi)
-#ifdef CPP_PHYS
-  ! If using physics
-  !
+
   !    Auteur :  P. Le Van, F. Hourdin
   !   .........
@@ -37 +35 @@
   USE mod_interface_dyn_phys
   USE IOPHY
-#endif
   USE lmdz_mpi
 
@@ -49 +46 @@
   USE infotrac, ONLY: nqtot, tracers
   USE control_mod, ONLY: planet_type, nsplit_phys
-#ifdef CPP_PHYS
   USE callphysiq_mod, ONLY: call_physiq
-#endif
   USE comvert_mod, ONLY: preff, presnivs
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
+
 
 #ifdef CPP_PARA
@@ -148 +145 @@
   REAL,INTENT(OUT) :: pdpsfi(iip1,jjb_u:jje_u) ! tendency on surface pressure (Pa/s)
 
-#ifdef CPP_PHYS
   ! Ehouarn: for now calfis_p needs some informations from physics to compile
   !    Local variables :
@@ -193 +189 @@
   ! Introduction du splitting (FH)
   ! Question pour Yann :
-  ! J'ai été surpris au début que les tableaux zufi_omp, zdufi_omp n'co soitent
+  ! J'ai �t� surpris au d�but que les tableaux zufi_omp, zdufi_omp n'co soitent
   ! en SAVE. Je crois comprendre que c'est parce que tu voulais qu'il
   ! soit allocatable (plutot par exemple que de passer une dimension
-  ! dépendant du process en argument des routines) et que, du coup,
-  ! le SAVE évite d'avoir à refaire l'allocation à chaque appel.
+  ! d�pendant du process en argument des routines) et que, du coup,
+  ! le SAVE �vite d'avoir � refaire l'allocation � chaque appel.
   ! Tu confirmes ?
-  ! J'ai suivi le même principe pour les zdufic_omp
+  ! J'ai suivi le m�me principe pour les zdufic_omp
   ! Mais c'est surement bien que tu controles.
   !
@@ -238 +234 @@
   INTEGER :: offset
   INTEGER :: jjb,jje
+
+  IF (CPPKEY_PHYS) THEN
 
   !
@@ -721 +719 @@
   zdqfic_omp(:,:,:)=0.
 
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
   do isplit=1,nsplit_phys
 
@@ -752 +750 @@
   enddo
 
-#endif
+END IF
   ! of #ifdef CPP_PHYS
 
@@ -1210 +1208 @@
   firstcal = .FALSE.
 
-#else
+ELSE
   call abort_gcm("calfis_loc", &
         "calfis_p: for now can only work with parallel physics", 1)
-#endif
-  ! of #ifdef CPP_PHYS
+END IF
 #endif
   ! of #ifdef CPP_PARA