Changeset 5103 for LMDZ6/branches/Amaury_dev/libf/phylmd/acama_gwd_rando_m.F90

Timestamp:

Jul 23, 2024, 3:29:36 PM (4 months ago)

Author:

abarral

Message:

Handle CPP_INLANDSIS in lmdz_cppkeys_wrapper.F90
Remove obsolete key wrgrads_thermcell, _ADV_HALO, _ADV_HALLO, isminmax
Remove redundant uses of CPPKEY_INCA (thanks acozic)
Remove obsolete misc/write_field.F90
Remove unused ioipsl_* wrappers
Remove calls to WriteField_u with wrong signature
Convert .F -> .[fF]90
(lint) uppercase fortran operators
[note: 1d and iso still broken - working on it]

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/acama_gwd_rando_m.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/acama_gwd_rando_m.F90

@@ -119 +119 @@
 
     REAL, DIMENSION(klev+1) ::HREF
-    LOGICAL, SAVE :: gwd_reproductibilite_mpiomp=.true.
+    LOGICAL, SAVE :: gwd_reproductibilite_mpiomp=.TRUE.
     LOGICAL, SAVE :: firstCALL = .TRUE.
   !$OMP THREADPRIVATE(firstcall,gwd_reproductibilite_mpiomp)
@@ -137 +137 @@
        CALL abort_physic (modname,abort_message,1)
     ENDIF
-    firstcall=.false.
+    firstcall=.FALSE.
 !    CALL iophys_ini(dtime)
   ENDIF
@@ -258 +258 @@
     ENDDO
     !LAUNCH=22 ; LTROP=33
-!   print*,'LAUNCH=',LAUNCH,'LTROP=',LTROP
+!   PRINT*,'LAUNCH=',LAUNCH,'LTROP=',LTROP