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

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

@@ -1 @@
-!
+
 ! $Id$
-!
+
 SUBROUTINE iniconst
 
@@ -16 +16 @@
   
   IMPLICIT NONE
-  !
+
   !      P. Le Van
-  !
+
   !   Declarations:
   !   -------------
-  !
+
   include "dimensions.h"
   include "paramet.h"
@@ -28 +28 @@
   character(len=*),parameter :: modname="iniconst"
   character(len=80) :: abort_message
-  !
-  !
-  !
+
+
+
   !-----------------------------------------------------------------------
   !   dimension des boucles:
@@ -50 +50 @@
 
   !-----------------------------------------------------------------------
-  !
 
   r       = cpp * kappa
 
   write(lunout,*) trim(modname),': R  CP  Kappa ',r,cpp,kappa
-  !
+
   !-----------------------------------------------------------------------