Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90

Timestamp:

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

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90

@@ -70 +70 @@
   ! Ehouarn: when no initialization fields from file, resetvarc should be
        ! set to false
-   if (firstcal) THEN
-     if (.not.read_start) THEN
+   IF (firstcal) THEN
+     IF (.NOT.read_start) THEN
        resetvarc=.TRUE.
      endif
@@ -147 +147 @@
   ang   = SSUM(     llm,  angl, 1 )
 
-  IF (firstcal.and.resetvarc) THEN
+  IF (firstcal.AND.resetvarc) THEN
      WRITE(lunout,3500) itau, rjour, heure, time
      WRITE(lunout,*) trim(modname), &
@@ -162 +162 @@
   ! compute relative changes in etot,... (except if 'reference' values
   ! are zero, which can happen when using iniacademic)
-  if (etot0/=0) THEN
+  IF (etot0/=0) THEN
     etot= etot/etot0
   else
     etot=1.
-  endif
+  ENDIF
   rmsv= SQRT(rmsv/ptot)
-  if (ptot0/=0) THEN
+  IF (ptot0/=0) THEN
     ptot= ptot/ptot0
   else
     ptot=1.
-  endif
-  if (ztot0/=0) THEN
+  ENDIF
+  IF (ztot0/=0) THEN
     ztot= ztot/ztot0
   else
     ztot=1.
-  endif
-  if (stot0/=0) THEN
+  ENDIF
+  IF (stot0/=0) THEN
     stot= stot/stot0
   else
     stot=1.
-  endif
-  if (ang0/=0) THEN
+  ENDIF
+  IF (ang0/=0) THEN
     ang = ang /ang0
   else
     ang=1.
-  endif
+  ENDIF
 
   firstcal = .FALSE.