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

Timestamp:

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

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

@@ -965 +965 @@
   ! **   interface.
   ! ----------
-  ! call *gwstress*  from *gwdrag*
+  ! CALL *gwstress*  from *gwdrag*
 
   ! explicit arguments :
@@ -1875 +1875 @@
   IF (cell/=-1) THEN
 
-    !print*,'SUGWD shape ',shape(pplay),cell+1
+    !PRINT*,'SUGWD shape ',shape(pplay),cell+1
 
     DO jk = 1, nlev
@@ -1902 +1902 @@
   PRINT *, ' DANS SUGWD nktopg=', nktopg
   PRINT *, ' DANS SUGWD nstra=', nstra
-  if (nstra == 0) call abort_physic("sugwd_strato", "no level in stratosphere", 1)
+  if (nstra == 0) CALL abort_physic("sugwd_strato", "no level in stratosphere", 1)
 
 !  Valeurs lues dans les .def, ou attribues dans conf_phys