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

Timestamp:

Jul 24, 2024, 2:54:37 PM (8 weeks 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/lmdz_thermcell_closure.F90 (modified) (2 diffs)

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

@@ -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))