Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/aaam_bud.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/phylmd/aaam_bud.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/aaam_bud.F90

@@ -330 +330 @@
 
 
-  ! write(*,*) 'AAM',rsec,
-  ! write(*,*) 'AAM',rjour+rsec/86400.,
+  ! WRITE(*,*) 'AAM',rsec,
+  ! WRITE(*,*) 'AAM',rjour+rsec/86400.,
   ! c      raam(3)/hadday,oaam(3)/hadday,
   ! c      tmou(3)/hadley,tsso(3)/hadley,tbls(3)/hadley
 
-  ! write(iam,100)rjour+rsec/86400.,
+  ! WRITE(iam,100)rjour+rsec/86400.,
   ! c      raam(1)/hadday,oaam(1)/hadday,
   ! c      tmou(1)/hadley,tsso(1)/hadley,tbls(1)/hadley,
@@ -344 +344 @@
 100 FORMAT (F12.5, 15(1X,F12.5))
 
-  ! write(iam+1,*)((zs(i,j),i=1,nbp_lon),j=1,nbp_lat)
-  ! write(iam+1,*)((ps(i,j),i=1,nbp_lon),j=1,nbp_lat)
-  ! write(iam+1,*)((ub(i,j),i=1,nbp_lon),j=1,nbp_lat)
-  ! write(iam+1,*)((vb(i,j),i=1,nbp_lon),j=1,nbp_lat)
-  ! write(iam+1,*)((ssou(i,j),i=1,nbp_lon),j=1,nbp_lat)
-  ! write(iam+1,*)((ssov(i,j),i=1,nbp_lon),j=1,nbp_lat)
-  ! write(iam+1,*)((blsu(i,j),i=1,nbp_lon),j=1,nbp_lat)
-  ! write(iam+1,*)((blsv(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! WRITE(iam+1,*)((zs(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! WRITE(iam+1,*)((ps(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! WRITE(iam+1,*)((ub(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! WRITE(iam+1,*)((vb(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! WRITE(iam+1,*)((ssou(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! WRITE(iam+1,*)((ssov(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! WRITE(iam+1,*)((blsu(i,j),i=1,nbp_lon),j=1,nbp_lat)
+  ! WRITE(iam+1,*)((blsv(i,j),i=1,nbp_lon),j=1,nbp_lat)
 
   aam = raam(3)