Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writehist_loc.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/writehist_loc.f90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/writehist_loc.f90

@@ -6 +6 @@
   USE misc_mod
   USE infotrac, ONLY: nqtot
-  use com_io_dyn_mod, ONLY: histid, histvid, histuid
+  USE com_io_dyn_mod, ONLY: histid, histvid, histuid
   USE comconst_mod, ONLY: cpp
   USE temps_mod, ONLY: itau_dyn
@@ -64 +64 @@
   REAL, SAVE, ALLOCATABLE :: tm(:, :)
   REAL, SAVE, ALLOCATABLE :: vnat(:, :), unat(:, :)
-  logical :: ok_sync
+  LOGICAL :: ok_sync
   INTEGER :: itau_w
   INTEGER :: ijb, ije, jjn
@@ -73 +73 @@
   !  Initialisations
   !
-  if (adjust) return
+  IF (adjust) return
 
   IF (first) THEN
@@ -118 +118 @@
   !
   ije = ij_end
-  if (pole_sud) jjn = jj_nb - 1
-  if (pole_sud) ije = ij_end - iip1
+  IF (pole_sud) jjn = jj_nb - 1
+  IF (pole_sud) ije = ij_end - iip1
   !$OMP BARRIER
   !$OMP MASTER
@@ -205 +205 @@
   !
   !$OMP MASTER
-  if (ok_sync) THEN
+  IF (ok_sync) THEN
     CALL histsync(histid)
     CALL histsync(histvid)
     CALL histsync(histuid)
-  endif
+  ENDIF
   !$OMP END MASTER
 END SUBROUTINE writehist_loc