Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/parallel_lmdz.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/dyn3dmem/parallel_lmdz.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/parallel_lmdz.F90

@@ -1 @@
-! 
+
 ! $Id$
-!
+
   MODULE parallel_lmdz
   USE mod_const_mpi
@@ -742 +742 @@
 !      INCLUDE "dimensions.h"
 !      INCLUDE "paramet.h"    
-!    
+
 !      INTEGER :: ij,ll
 !      REAL, dimension(ij,ll) :: Field
 !      INTEGER :: up,down 
-!      
+
 !      REAL,dimension(ij,ll): NewField
-!      
+
 !      NewField=0
-!      
+
 !      ijb=ij_begin
 !      ije=ij_end