Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/phylmd/initphysto.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (4 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/phylmd/initphysto.F90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/initphysto.F90

@@ -1 @@
-!
+
 ! $Id$
-!
+
 SUBROUTINE initphysto(infile,tstep,t_ops,t_wrt,fileid)
   
@@ -14 +14 @@
   IMPLICIT NONE
 
-!
 !   Routine d'initialisation des ecritures des fichiers histoires LMDZ
 !   au format IOIPSL
-!
+
 !   Appels succesifs des routines: histbeg
 !                                  histhori
@@ -23 +22 @@
 !                                  histdef
 !                                  histend
-!
+
 !   Entree:
-!
+
 !      infile: nom du fichier histoire a creer
 !      day0,anne0: date de reference
@@ -31 +30 @@
 !      t_ops: frequence de l'operation pour IOIPSL
 !      t_wrt: frequence d'ecriture sur le fichier
-!
+
 !   Sortie:
 !      fileid: ID du fichier netcdf cree
-!
+
 !   L. Fairhead, LMD, 03/99
-!
+
 ! =====================================================================
 
@@ -61 +60 @@
 
 !  Initialisations
-!
+
   ok_sync= .TRUE.
-!
+
 !  Appel a histbeg: creation du fichier netcdf et initialisations diverses
-!         
 
   zan = annee_ref
@@ -77 +75 @@
 !$OMP MASTER    
 !  Appel a histvert pour la grille verticale
-!
+
   DO l=1,nbp_lev
      nivsigs(l)=REAL(l)
@@ -85 +83 @@
        'sigma_level', &
        nbp_lev, nivsigs, zvertiid)
-!
+
 !  Appels a histdef pour la definition des variables a sauvegarder
-!
+
   CALL histdef(fileid, "phis", "Surface geop. height", "-", &
        nbp_lon,jj_nb,nhoriid, 1,1,1, -99, 32, &