Changeset 5090 for LMDZ6/branches/Amaury_dev/libf/dyn3d/replay3d.F90

Timestamp:

Jul 20, 2024, 6:08:57 PM (4 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/replay3d.F90 (modified) (1 diff)

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 )