Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F90 (modified) (3 diffs)

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

@@ -31 +31 @@
 
   REAL :: pbarvst(iip1, jjp1, llm), zistdyn
-  real :: dtcum
+  REAL :: dtcum
 
   INTEGER :: iadvtr, ndex(1)
-  integer :: nscal
-  real :: tst(1), ist(1), istp(1)
+  INTEGER :: nscal
+  REAL :: tst(1), ist(1), istp(1)
   INTEGER :: ij, l, irec, i, j, itau
   INTEGER, SAVE :: fluxid, fluxvid, fluxdid
@@ -52 +52 @@
   wg(:, :) = 0.
 
-  if(first) then
-
+  IF(first) THEN
     CALL initfluxsto('fluxstoke', &
             time_step, istdyn * time_step, istdyn * time_step, &
@@ -134 +133 @@
 
     iadvtr = 0
-    write(lunout, *)'ITAU auquel on stoke les fluxmasses', itau
+    WRITE(lunout, *)'ITAU auquel on stoke les fluxmasses', itau
 
     CALL histwrite(fluxid, 'masse', itau, massem, &