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

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

@@ -147 +147 @@
   END DO
 
-  ! if(prt.level.GE.20) PRINT*,'cv3p1_param apres 100'
+  ! IF(prt.level.GE.20) PRINT*,'cv3p1_param apres 100'
   ! compute icbmax:
 
@@ -154 +154 @@
     icbmax = max(icbmax, icb(il))
   END DO
-  ! if(prt.level.GE.20) PRINT*,'cv3p1_param apres 200'
+  ! IF(prt.level.GE.20) PRINT*,'cv3p1_param apres 200'
 
   ! update sig and w0 below cloud base:
@@ -493 +493 @@
         il)+1))/(ph(il,icb(il)+1)-ph(il,icb(il)+2))
       ! IM beg
-    END IF !(icb(il.le.inb(il))) then
+    END IF !(icb(il.le.inb(il))) THEN
     ! IM end
   END DO
@@ -556 +556 @@
   DO k=1,nl
      DO il=1,ncum
-        if ((plfc(il)<ph(il,k)).and.(plfc(il)>=ph(il,k+1))) then
+        if ((plfc(il)<ph(il,k)).and.(plfc(il)>=ph(il,k+1))) THEN
            klfc(il)=k
         endif
@@ -569 +569 @@
 !CR: Add large-scale component to the mass-flux
 !encore connu sous le nom "Experience du tube de dentifrice"
-    if ((coef_clos_ls>0.).and.(plfc(il)>0.)) then
+    if ((coef_clos_ls>0.).and.(plfc(il)>0.)) THEN
        cbmf1(il) = cbmf1(il) - coef_clos_ls*min(0.,1./RG*omega(il,klfc(il)))
     endif
@@ -585 +585 @@
     IF (cbmflim(il)>1.E-6) THEN
       ! ATTENTION TEST CR
-      ! if (cbmfmax(il).lt.1.e-12) then
+      ! if (cbmfmax(il).lt.1.e-12) THEN
       cbmf(il) = min(cbmf1(il), cbmfmax(il))
       ! else