Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/infotrac.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_common/infotrac.F90 (modified) (6 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/infotrac.F90

@@ -1 +1 @@
 !$Id$
-!
+
 MODULE infotrac
 
@@ -54 +54 @@
   !  * For water, "nqo" is equal to the more general field "isotopes(ip)%nphas".
   !  * "niso", "nzone", "ntiso", "nphas" are defined for other isotopic tracers families, if any.
-  !
+
   !=== DERIVED TYPE EMBEDDING MOST OF THE TRACERS-RELATED QUANTITIES (LENGTH: nqtot)
   !    Each entry is accessible using "%" sign.
@@ -81 +81 @@
   !  | iso_iPhas   | Isotope  phase index in isotopes(iso_iGroup)%phas(:) | phase_num   | 1:nphas                |
   !  +-------------+------------------------------------------------------+-------------+------------------------+
-  !
+
   !=== DERIVED TYPE EMBEDDING MOST OF THE ISOTOPES-RELATED QUANTITIES (LENGTH: nbIso, NUMBER OF ISOTOPES FAMILIES)
   !    Each entry is accessible using "%" sign.
@@ -120 +120 @@
     IMPLICIT NONE
     !==============================================================================================================================
-    !
+
     !   Auteur:  P. Le Van /L. Fairhead/F.Hourdin
     !   -------
-    !
+
     !   Modifications:
     !   --------------
@@ -129 +129 @@
     !   02/02: M-A Filiberti Lecture de traceur.def
     !   01/22: D. Cugnet     Nouveaux tracer.def et tracer_*.def + encapsulation (types trac_type et isot_type)
-    !
+
     !   Objet:
     !   ------
     !   GCM LMD nouvelle grille
-    !
+
     !==============================================================================================================================
     !   ... modification de l'integration de q ( 26/04/94 ) ....
@@ -315 +315 @@
     !     iadv = 20   Slopes                                                       SLP
     !     iadv = 30   Prather                                                      PRA
-    !
+
     !        In array q(ij,l,iq) : iq = 1/2[/3]    for vapour/liquid[/ice] water
     !        And optionaly:        iq = 3[4],nqtot for other tracers