Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.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/dyn3d/bilan_dyn.F90 (modified) (9 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F90

@@ -52 +52 @@
 
   INTEGER :: icum, ncum
-  logical :: first
+  LOGICAL :: first
   REAL :: zz, zqy, zfactv(jjm, llm)
 
@@ -169 +169 @@
   ndex3d = 0
 
-  if (first) THEN
+  IF (first) THEN
     icum = 0
     ! initialisation des fichiers
@@ -175 +175 @@
     !   ncum est la frequence de stokage en pas de temps
     ncum = dt_cum / dt_app
-    if (abs(ncum * dt_app - dt_cum)>1.e-5 * dt_app) THEN
+    IF (abs(ncum * dt_app - dt_cum)>1.e-5 * dt_app) THEN
       WRITE(lunout, *) &
               'Pb : le pas de cumule doit etre multiple du pas'
@@ -183 +183 @@
     endif
 
-    if (i_sortie==1) THEN
+    IF (i_sortie==1) THEN
       file = 'dynzon'
       CALL inigrads(ifile, 1 &
@@ -295 +295 @@
     CALL histend(fileid)
 
-  endif
+  ENDIF
 
 
@@ -334 +334 @@
     flux_vQ_cum = 0.
     flux_uQ_cum = 0.
-  endif
+  ENDIF
 
   IF (prt_level > 5) &
@@ -407 +407 @@
   !   PAS DE TEMPS D'ECRITURE
   !=====================================================================
-  if (icum==ncum) THEN
+  IF (icum==ncum) THEN
     !=====================================================================
 
@@ -528 +528 @@
     ! PRINT*,'4OK'
     !   sorties proprement dites
-    if (i_sortie==1) THEN
+    IF (i_sortie==1) THEN
       do iQ = 1, nQ
         do itr = 1, ntr
@@ -573 +573 @@
     !/////////////////////////////////////////////////////////////////////
     icum = 0                  !///////////////////////////////////////
-  endif ! icum.eq.ncum    !///////////////////////////////////////
+  ENDIF ! icum.EQ.ncum    !///////////////////////////////////////
   !/////////////////////////////////////////////////////////////////////
   !=====================================================================