Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/sw_case_williamson91_6_loc.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/dyn3dmem/sw_case_williamson91_6_loc.f90 (modified) (3 diffs)

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

@@ -116 +116 @@
         enddo
      enddo
-      ! write(lunout,*) 'W91 ps', MAXVAL(ps), MINVAL(ps)
+      ! WRITE(lunout,*) 'W91 ps', MAXVAL(ps), MINVAL(ps)
   ! vitesse zonale ucov
      do j=1,jjp1
@@ -130 +130 @@
         enddo
      enddo
-      ! write(lunout,*) 'W91 u', MAXVAL(ucov(:,1)), MINVAL(ucov(:,1))
+      ! WRITE(lunout,*) 'W91 u', MAXVAL(ucov(:,1)), MINVAL(ucov(:,1))
      ucov_glo(:,1)=ucov_glo(:,1)*cu
   ! vitesse meridienne vcov
@@ -143 +143 @@
         enddo
      enddo
-     write(lunout,*) 'W91 v', MAXVAL(vcov(:,1)), MINVAL(vcov(:,1))
+     WRITE(lunout,*) 'W91 v', MAXVAL(vcov(:,1)), MINVAL(vcov(:,1))
      vcov_glo(:,1)=vcov_glo(:,1)*cv