Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_closure.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 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/phylmd/lmdz_thermcell_closure.F90 (modified) (4 diffs)

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

@@ -21 +21 @@
 
 ! --- arguments ------------------------------------------
-integer, intent(in) :: ngrid,nlay
-real, intent(in) :: r_aspect,ptimestep
-real, intent(in), dimension(ngrid,nlay) :: alim_star,rho,zlev
-integer, intent(in), dimension(ngrid) :: lalim
-real, intent(in), dimension(ngrid) :: zmax,wmax
+INTEGER, INTENT(IN) :: ngrid,nlay
+REAL, INTENT(IN) :: r_aspect,ptimestep
+REAL, INTENT(IN), DIMENSION(ngrid,nlay) :: alim_star,rho,zlev
+INTEGER, INTENT(IN), DIMENSION(ngrid) :: lalim
+REAL, INTENT(IN), DIMENSION(ngrid) :: zmax,wmax
 
-real, intent(out), dimension(ngrid) :: f
+REAL, INTENT(OUT), DIMENSION(ngrid) :: f
 
 
 ! --- local ------------------------------------------
-real, dimension(ngrid) :: zdenom,alim_star2,alim_star_tot
+REAL, DIMENSION(ngrid) :: zdenom,alim_star2,alim_star_tot
 INTEGER llmax
 INTEGER ig,k       
@@ -45 +45 @@
 llmax=1
 DO ig=1,ngrid
-   if (lalim(ig)>llmax) llmax=lalim(ig)
+   IF (lalim(ig)>llmax) llmax=lalim(ig)
 END DO
 
@@ -53 +53 @@
 DO k=1,llmax-1
    do ig=1,ngrid
-      if (k<lalim(ig)) THEN
+      IF (k<lalim(ig)) THEN
          alim_star2(ig)=alim_star2(ig)+alim_star(ig,k)**2  &
 &                    /(rho(ig,k)*(zlev(ig,k+1)-zlev(ig,k)))
@@ -63 +63 @@
 
 DO ig=1,ngrid
-   if (alim_star2(ig)>1.e-10) THEN
+   IF (alim_star2(ig)>1.e-10) THEN
       f(ig)=wmax(ig)*alim_star_tot(ig)/  &
 &     (max(500.,zmax(ig))*r_aspect*alim_star2(ig))