Changeset 5090 for LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.F

Timestamp:

Jul 20, 2024, 6:08:57 PM (2 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

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.F (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.F

@@ -27 +27 @@
      &                        start_time,dt
       USE strings_mod, ONLY: msg
+      USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
 
       IMPLICIT NONE
@@ -462 +463 @@
 #endif
 ! #endif of #ifdef CPP_IOIPSL
-#ifdef CPP_PHYS
-         CALL calfis( lafin , jD_cur, jH_cur,
+         IF (CPPKEY_PHYS) THEN
+           CALL calfis( lafin , jD_cur, jH_cur,
      $               ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,
      $               du,dv,dteta,dq,
      $               flxw,dufi,dvfi,dtetafi,dqfi,dpfi  )
-#endif
+         END IF
 c      ajout des tendances physiques:
 c      ------------------------------