Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/prec_scops.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/prec_scops.F90 (modified) (18 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/prec_scops.F90

@@ -66 +66 @@
       if (cv_col .eq. 0) cv_col=1
  
-      do ilev=1,nlev
-        do ibox=1,ncol
-          do j=1,npoints 
+      DO ilev=1,nlev
+        DO ibox=1,ncol
+          DO j=1,npoints
             prec_frac(j,ibox,ilev) = 0
           enddo
@@ -74 +74 @@
       enddo
       
-      do j=1,npoints
-       do ibox=1,ncol
+      DO j=1,npoints
+       DO ibox=1,ncol
         frac_out_ls(j,ibox)=0
         frac_out_cv(j,ibox)=0
         flag_ls=0
         flag_cv=0
-        do ilev=1,nlev
+        DO ilev=1,nlev
           if (frac_out(j,ibox,ilev) .eq. 1) then 
             flag_ls=1
@@ -98 +98 @@
 
 !      initialize the top layer      
-       do j=1,npoints
+       DO j=1,npoints
         flag_ls=0
         flag_cv=0
     
         if (ls_p_rate(j,1) .gt. 0.) then 
-            do ibox=1,ncol ! possibility ONE
+            DO ibox=1,ncol ! possibility ONE
                 if (frac_out(j,ibox,1) .eq. 1) then 
                     prec_frac(j,ibox,1) = 1
@@ -110 +110 @@
             enddo ! loop over ncol
             if (flag_ls .eq. 0) then ! possibility THREE
-                do ibox=1,ncol
+                DO ibox=1,ncol
                     if (frac_out(j,ibox,2) .eq. 1) then 
                         prec_frac(j,ibox,1) = 1
@@ -118 +118 @@
             endif
         if (flag_ls .eq. 0) then ! possibility Four
-        do ibox=1,ncol
+        DO ibox=1,ncol
         if (frac_out_ls(j,ibox) .eq. 1) then 
             prec_frac(j,ibox,1) = 1
@@ -126 +126 @@
         endif
         if (flag_ls .eq. 0) then ! possibility Five
-        do ibox=1,ncol
+        DO ibox=1,ncol
     !     prec_frac(j,1:ncol,1) = 1
         prec_frac(j,ibox,1) = 1
@@ -135 +135 @@
      
         if (cv_p_rate(j,1) .gt. 0.) then 
-         do ibox=1,ncol ! possibility ONE
+         DO ibox=1,ncol ! possibility ONE
           if (frac_out(j,ibox,1) .eq. 2) then 
            if (prec_frac(j,ibox,1) .eq. 0) then
@@ -146 +146 @@
         enddo ! loop over ncol
         if (flag_cv .eq. 0) then ! possibility THREE
-        do ibox=1,ncol
+        DO ibox=1,ncol
         if (frac_out(j,ibox,2) .eq. 2) then 
                 if (prec_frac(j,ibox,1) .eq. 0) then
@@ -158 +158 @@
         endif
         if (flag_cv .eq. 0) then ! possibility Four
-        do ibox=1,ncol
+        DO ibox=1,ncol
         if (frac_out_cv(j,ibox) .eq. 1) then 
                 if (prec_frac(j,ibox,1) .eq. 0) then
@@ -170 +170 @@
         endif
         if (flag_cv .eq. 0) then  ! possibility Five
-        do ibox=1,cv_col
+        DO ibox=1,cv_col
                 if (prec_frac(j,ibox,1) .eq. 0) then
             prec_frac(j,ibox,1) = 2
@@ -187 +187 @@
 
 !     working on the levels from top to surface
-      do ilev=2,nlev
-       do j=1,npoints
+      DO ilev=2,nlev
+       DO j=1,npoints
         flag_ls=0
         flag_cv=0
     
         if (ls_p_rate(j,ilev) .gt. 0.) then 
-         do ibox=1,ncol ! possibility ONE&TWO
+         DO ibox=1,ncol ! possibility ONE&TWO
           if ((frac_out(j,ibox,ilev) .eq. 1) .or. ((prec_frac(j,ibox,ilev-1) .eq. 1)     &
             .or. (prec_frac(j,ibox,ilev-1) .eq. 3))) then 
@@ -201 +201 @@
         enddo ! loop over ncol
         if ((flag_ls .eq. 0) .and. (ilev .lt. nlev)) then ! possibility THREE
-        do ibox=1,ncol
+        DO ibox=1,ncol
         if (frac_out(j,ibox,ilev+1) .eq. 1) then 
             prec_frac(j,ibox,ilev) = 1
@@ -209 +209 @@
         endif
         if (flag_ls .eq. 0) then ! possibility Four
-        do ibox=1,ncol
+        DO ibox=1,ncol
         if (frac_out_ls(j,ibox) .eq. 1) then 
             prec_frac(j,ibox,ilev) = 1
@@ -217 +217 @@
         endif
         if (flag_ls .eq. 0) then ! possibility Five
-        do ibox=1,ncol
+        DO ibox=1,ncol
 !     prec_frac(j,1:ncol,ilev) = 1
         prec_frac(j,ibox,ilev) = 1
@@ -225 +225 @@
     
         if (cv_p_rate(j,ilev) .gt. 0.) then 
-         do ibox=1,ncol ! possibility ONE&TWO
+         DO ibox=1,ncol ! possibility ONE&TWO
           if ((frac_out(j,ibox,ilev) .eq. 2) .or. ((prec_frac(j,ibox,ilev-1) .eq. 2)     &
             .or. (prec_frac(j,ibox,ilev-1) .eq. 3))) then 
@@ -237 +237 @@
        enddo ! loop over ncol
         if ((flag_cv .eq. 0) .and. (ilev .lt. nlev)) then ! possibility THREE
-        do ibox=1,ncol
+        DO ibox=1,ncol
         if (frac_out(j,ibox,ilev+1) .eq. 2) then 
                 if (prec_frac(j,ibox,ilev) .eq. 0) then
@@ -249 +249 @@
         endif
         if (flag_cv .eq. 0) then ! possibility Four
-        do ibox=1,ncol
+        DO ibox=1,ncol
         if (frac_out_cv(j,ibox) .eq. 1) then 
                 if (prec_frac(j,ibox,ilev) .eq. 0) then
@@ -261 +261 @@
         endif
         if (flag_cv .eq. 0) then  ! possibility Five 
-        do ibox=1,cv_col
+        DO ibox=1,cv_col
                 if (prec_frac(j,ibox,ilev) .eq. 0) then
             prec_frac(j,ibox,ilev) = 2