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

LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

@@ -2163 +2163 @@
 #endif
           ! end verif
-          !
+
      else !if (t1lay(i).ge.0.0) then   
           do ixt=1,niso
@@ -16617 +16617 @@
 !#ifdef ISOHTO
 !===================================================================
-!
+
 !   subroutines utilisees par iso_tritium: ecrites par Alexandre Cauquoin
-!
+
 !===================================================================
 
@@ -17932 +17932 @@
 
 !===================================================================
-!
+
 !   End subroutine iso_tritium
-!
+
 !===================================================================
 
@@ -17940 +17940 @@
 
 !===================================================================
-!
+
 ! Subroutine chargement des tableaux de donnees pour production 
 ! nucleaire de tritium --> call dans iso_init.F
-!
+
 !===================================================================
 
@@ -18047 +18047 @@
 
 !===================================================================
-!
+
 ! Subroutines production nucleaire utilisees par iso_tritium
-!
+
 !===================================================================
 
@@ -18501 +18501 @@
 !#endif
 !===================================================================
-!
+
 !   End subroutines utilisees par iso_tritium
-!
+
 !===================================================================