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

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

@@ -1 @@
-!
+
 ! $Id$
-!
+
 SUBROUTINE inidissip ( lstardis,nitergdiv,nitergrot,niterh  , &
      tetagdiv,tetagrot,tetatemp, vert_prof_dissip)
@@ -48 +48 @@
 
   !-----------------------------------------------------------------------
-  !
+
   !   calcul des valeurs propres des operateurs par methode iterrative:
   !   -----------------------------------------------------------------
@@ -105 +105 @@
 
   DO    ii = 1, 2
-     !
+
      DO ij = 1, ip1jmp1
         zu(ij)  = RAN1(idum) -.5