Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writedyn_xios.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (2 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/dyn3dmem/writedyn_xios.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writedyn_xios.F90

@@ -8 +8 @@
   USE misc_mod
   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 @@
   REAL phis(ijb_u:ije_u)
   REAL q(ijb_u:ije_u, llm, nqtot)
-  integer time
+  INTEGER time
 
 
@@ -57 +57 @@
   REAL, SAVE, ALLOCATABLE :: vnat(:, :), unat(:, :)
   REAL, SAVE, ALLOCATABLE :: vbuffer(:, :)
-  logical ok_sync
-  integer itau_w
+  LOGICAL ok_sync
+  INTEGER itau_w
   INTEGER :: ijb, ije, jjn
   LOGICAL, SAVE :: first = .TRUE.