Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/writedynav.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (3 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d_common/writedynav.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/writedynav.F90

@@ -5 +5 @@
   USE ioipsl
   USE infotrac, ONLY: nqtot
-  use com_io_dyn_mod, ONLY: histaveid, histvaveid, histuaveid
+  USE com_io_dyn_mod, ONLY: histaveid, histvaveid, histuaveid
   USE comconst_mod, ONLY: cpp
   USE temps_mod, ONLY: itau_dyn
@@ -47 +47 @@
   !   Variables locales
 
-  integer ndex2d(ip1jmp1), ndexu(ip1jmp1*llm), ndexv(ip1jm*llm)
+  INTEGER ndex2d(ip1jmp1), ndexu(ip1jmp1*llm), ndexv(ip1jm*llm)
   INTEGER iq, ii, ll
-  real tm(ip1jmp1*llm)
+  REAL tm(ip1jmp1*llm)
   REAL vnat(ip1jm, llm), unat(ip1jmp1, llm)
-  logical ok_sync
-  integer itau_w
+  LOGICAL ok_sync
+  INTEGER itau_w
 
   !-----------------------------------------------------------------
@@ -120 +120 @@
   ! CALL histwrite(histaveid, 'phis', itau_w, phis, iip1*jjp1, ndex2d)
 
-  if (ok_sync) THEN
+  IF (ok_sync) THEN
      CALL histsync(histaveid)
      CALL histsync(histvaveid)