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

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/replay3d.F90 (modified) (5 diffs)

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

@@ -1 @@
-!
+
 ! $Id: gcm.F90 3579 2019-10-09 13:11:07Z fairhead $
-!
-!
-!
+
+
+
 PROGRAM replay3d
 
@@ -30 +30 @@
 
   !=======================================================================
-  !
+
   !   Auteur:  P. Le Van /L. Fairhead/F.Hourdin
   !   -------
-  !
+
   !   Objet:
   !   ------
-  !
+
   !   GCM LMD nouvelle grille
-  !
+
   !=======================================================================
-  !
+
   !  ... Dans inigeom , nouveaux calculs pour les elongations  cu , cv
   !      et possibilite d'appeler une fonction f(y)  a derivee tangente
@@ -46 +46 @@
   !  ... Possibilite de choisir le schema pour l'advection de
   !        q  , en modifiant iadv dans traceur.def  (MAF,10/02) .
-  !
+
   !      Pour Van-Leer + Vapeur d'eau saturee, iadv(1)=4. (F.Codron,10/99)
   !      Pour Van-Leer iadv=10
-  !
+
   !-----------------------------------------------------------------------
   !   Declarations:
@@ -85 +85 @@
   !  lecture des fichiers gcm.def ou run.def
   !  ---------------------------------------
-  !
+
 preff=101325.
  pa=50000.
@@ -128 +128 @@
   zdtvr    = daysec/REAL(day_step)
 
-  !
   ! on remet le calendrier \`a zero si demande
-  !
+
      annee_ref = anneeref
      day_ref = dayref