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

Timestamp:

Jul 23, 2024, 3:29:36 PM (3 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/conf_phys_m.F90 (modified) (3 diffs)

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

@@ -257 +257 @@
     !-----------------------------------------------------------------
 
-    print*, 'CONFPHYS ENTREE'
+    PRINT*, 'CONFPHYS ENTREE'
     !$OMP MASTER 
     !Config Key  = type_ocean 
@@ -1840 +1840 @@
 
 
-    print*, 'CONFPHYS OOK avant drag_ter'
+    PRINT*, 'CONFPHYS OOK avant drag_ter'
 
     ! PARAMETRES CDRAG
@@ -2034 +2034 @@
     ok_gwd_rando_omp = .FALSE.
     IF (klon_glo == 1) THEN
-      print*, 'La parametrisation des ondes de gravites non orographiques'
-      print*, 'ne fonctionne pas en 1D'
+      PRINT*, 'La parametrisation des ondes de gravites non orographiques'
+      PRINT*, 'ne fonctionne pas en 1D'
     ELSE
       CALL getin('ok_gwd_rando', ok_gwd_rando_omp)