Changeset 5090 for LMDZ6/branches/Amaury_dev/libf/dyn3d

Timestamp:

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

Location:

LMDZ6/branches/Amaury_dev/libf/dyn3d

Files:

• dynredem_mod.F90 (modified) (1 diff)
• gcm.F90 (modified) (2 diffs)
• leapfrog.F (modified) (2 diffs)
• replay3d.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3d/dynredem_mod.F90

@@ -3 +3 @@
   USE netcdf, ONLY: nf90_strerror,nf90_noerr,nf90_redef,nf90_put_var,nf90_enddef,nf90_put_att,&
           nf90_inq_varid,nf90_get_var,nf90_def_var
-  USE lmdz_netcdf_format, ONLY: nf90_format
+  USE lmdz_cppkeys_wrapper, ONLY: nf90_format
   IMPLICIT NONE; PRIVATE
   PUBLIC :: dynredem_write_u, dynredem_write_v, dynredem_read_u, err

LMDZ6/branches/Amaury_dev/libf/dyn3d/gcm.F90

@@ -26 +26 @@
   USE logic_mod, ONLY: ecripar, iflag_phys, read_start
 
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
   ! A nettoyer. On ne veut qu'une ou deux routines d'interface 
   ! dynamique -> physique pour l'initialisation
-#ifdef CPP_PHYS
+  ! AB 2024/07/20: remplace CPP key by fortran logical, but ^ still relevant, see later use of iniphys later on
   USE iniphysiq_mod, ONLY: iniphysiq
-#endif
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -406 +407 @@
 
   IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
-     ! Physics:
-#ifdef CPP_PHYS
-     CALL iniphysiq(iim,jjm,llm, &
+    ! Physics:
+    IF (CPPKEY_PHYS) THEN
+      CALL iniphysiq(iim,jjm,llm, &
           (jjm-1)*iim+2,comm_lmdz, &
           daysec,day_ini,dtphys/nsplit_phys, &
           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))
 

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      ------------------------------

LMDZ6/branches/Amaury_dev/libf/dyn3d/replay3d.F90

@@ -22 +22 @@
   USE mod_const_mpi, ONLY: comm_lmdz
 
-
-
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
-  ! A nettoyer. On ne veut qu'une ou deux routines d'interface 
-  ! dynamique -> physique pour l'initialisation
-#ifdef CPP_PHYS
-  USE iniphysiq_mod, ONLY: iniphysiq
-#endif
-!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
   IMPLICIT NONE
 
   !      ......   Version  du 10/01/98    ..........
 
-  !             avec  coordonnees  verticales hybrides 
+  !             avec  coordonnees  verticales hybrides
   !   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )