Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diagedyn.f90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diagedyn.f90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diagedyn.f90

@@ -138 +138 @@
   INTEGER :: ndiag     ! max number of diagnostic in parallel
   PARAMETER (ndiag=10)
-  integer :: pas(ndiag)
+  INTEGER :: pas(ndiag)
   save pas
   data pas/ndiag*0/
@@ -160 +160 @@
   !
   PRINT*,'MAIS POURQUOI DONC DIAGEDYN NE MARCHE PAS ?'
-  return
+  RETURN
   ! On ne garde les donnees que dans les colonnes i=1,iim
   DO jj = 1,jjp1
@@ -325 +325 @@
   !
   ELSE
-    write(lunout,*)'diagedyn: set to function with Earth parameters'
+    WRITE(lunout,*)'diagedyn: set to function with Earth parameters'
   ENDIF ! of if (planet_type=="earth")
   RETURN