Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/writehist.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/writehist.f90 (modified) (3 diffs)

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

@@ -47 +47 @@
   REAL :: phis(ip1jmp1)
   REAL :: q(ip1jmp1, llm, nqtot)
-  integer :: time
+  INTEGER :: time
 
 
@@ -53 +53 @@
   !   Variables locales
   !
-  integer :: iq, ii, ll
-  integer :: ndexu(ip1jmp1 * llm), ndexv(ip1jm * llm), ndex2d(ip1jmp1)
+  INTEGER :: iq, ii, ll
+  INTEGER :: ndexu(ip1jmp1 * llm), ndexv(ip1jm * llm), ndex2d(ip1jmp1)
   logical :: ok_sync
-  integer :: itau_w
+  INTEGER :: itau_w
   REAL :: vnat(ip1jm, llm), unat(ip1jmp1, llm)
 
@@ -114 +114 @@
   !  Fin
   !
-  if (ok_sync) then
+  if (ok_sync) THEN
     CALL histsync(histid)
     CALL histsync(histvid)
     CALL histsync(histuid)
   endif
-  return
-end subroutine writehist
+  RETURN
+END SUBROUTINE writehist