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

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

@@ -24 +24 @@
   INTEGER :: im, jm, lm, i, j, l, iv, iii, iji, iif, ijf
 
-  logical :: writectl
+  LOGICAL :: writectl
 
   writectl = .FALSE.
@@ -63 +63 @@
   else
     ivar(if) = mod(ivar(if), nvar(if)) + 1
-    if (ivar(if)==nvar(if)) THEN
+    IF (ivar(if)==nvar(if)) THEN
       writectl = .TRUE.
       itime(if) = itime(if) + 1
@@ -77 +77 @@
       CALL abort_gcm("wrgrads", "problem", 1)
     endif
-  endif
+  ENDIF
 
   PRINT*, 'ivar(if),nvar(if),var(ivar(if),if),writectl'
@@ -90 +90 @@
                     , i = iii, iif), j = iji, ijf)
   enddo
-  if (writectl) THEN
+  IF (writectl) THEN
     file = fichier(if)
     !   WARNING! on reecrase le fichier .ctl a chaque ecriture
@@ -118 +118 @@
     close(unit(if))
 
-  endif ! writectl
+  ENDIF ! writectl
 
 END SUBROUTINE wrgrads