Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/initfluxsto_p.f90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 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/initfluxsto_p.f90 (modified) (10 diffs)

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

@@ -4 +4 @@
   USE IOIPSL
   USE parallel_lmdz
-  use Write_field
-  use misc_mod
+  USE lmdz_write_field
+  USE misc_mod
   USE comconst_mod, ONLY: pi
   USE comvert_mod, ONLY: nivsigs
@@ -64 +64 @@
   INTEGER :: ii, jj
   INTEGER :: zan, idayref
-  logical :: ok_sync
+  LOGICAL :: ok_sync
   INTEGER :: jjb, jje, jjn
 
@@ -136 +136 @@
   jje = jj_end
   jjn = jj_nb
-  if (pole_sud) jje = jj_end - 1
-  if (pole_sud) jjn = jj_nb - 1
+  IF (pole_sud) jje = jj_end - 1
+  IF (pole_sud) jjn = jj_nb - 1
 
   ddid = (/ 1, 2 /)
@@ -156 +156 @@
   rl(1, 1) = 1.
 
-  if (mpi_rank==0) THEN
+  IF (mpi_rank==0) THEN
     CALL histbeg('defstoke.nc', 1, rl, 1, rl, &
             1, 1, 1, 1, &
             tau0, zjulian, tstep, dhoriid, filedid)
 
-  endif
+  ENDIF
   !
   !  Appel a histhori pour rajouter les autres grilles horizontales
@@ -190 +190 @@
           llm, nivsigs, zvertiid)
   ! pour le fichier def
-  if (mpi_rank==0) THEN
+  IF (mpi_rank==0) THEN
     nivd(1) = 1
     CALL histvert(filedid, 'sig_s', 'Niveaux sigma', &
             'sigma_level', &
             1, nivd, dvertiid)
-  endif
+  ENDIF
   !
   !  Appels a histdef pour la definition des variables a sauvegarder
@@ -207 +207 @@
           "once", t_ops, t_wrt)
 
-  if (mpi_rank==0) THEN
+  IF (mpi_rank==0) THEN
     CALL histdef(filedid, "dtvr", "tps dyn", "s", &
             1, 1, dhoriid, 1, 1, 1, -99, 32, &
@@ -220 +220 @@
             "once", t_ops, t_wrt)
 
-  endif
+  ENDIF
   !
   ! Masse
@@ -237 +237 @@
   !  Pbarv
   !
-  if (pole_sud) jjn = jj_nb - 1
+  IF (pole_sud) jjn = jj_nb - 1
 
   CALL histdef(filevid, 'pbarv', 'flx de masse mer', 'kg m/s', &
@@ -245 +245 @@
   !  w
   !
-  if (pole_sud) jjn = jj_nb
+  IF (pole_sud) jjn = jj_nb
   CALL histdef(fileid, 'w', 'flx de masse vert', 'kg m/s', &
           iip1, jjn, thoriid, llm, 1, llm, zvertiid, &
@@ -269 +269 @@
   CALL histend(fileid)
   CALL histend(filevid)
-  if (mpi_rank==0) CALL histend(filedid)
-  if (ok_sync) THEN
+  IF (mpi_rank==0) CALL histend(filedid)
+  IF (ok_sync) THEN
     CALL histsync(fileid)
     CALL histsync(filevid)
-    if (mpi_rank==0) CALL histsync(filedid)
-  endif
+    IF (mpi_rank==0) CALL histsync(filedid)
+  ENDIF
 
 END SUBROUTINE initfluxsto_p