Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/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/cosp2/scops.F90 (modified) (5 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/scops.F90

@@ -94 +94 @@
     if (ncolprint.ne.0) then
        write (6,'(a)') 'frac_out_pp_rev:'
-       do j=1,npoints,1000
+       DO j=1,npoints,1000
           write(6,'(a10)') 'j='
           write(6,'(8I10)') j
@@ -104 +104 @@
     if (ncolprint.ne.0) then
        write (6,'(a)') 'last_frac_pp:'
-       do j=1,npoints,1000
+       DO j=1,npoints,1000
           write(6,'(a10)') 'j='
           write(6,'(8I10)') j
@@ -139 +139 @@
           IF (ncolprint.ne.0) then
              write (6,'(a)') 'threshold_nsf2:'
-             do j=1,npoints,1000
+             DO j=1,npoints,1000
                 write(6,'(a10)') 'j='
                 write(6,'(8I10)') j
@@ -156 +156 @@
           !maxocc(1:npoints,ibox) = merge(1,0,boxpos(1:npoints,ibox) .le. conv(1:npoints,ilev))
           !maxocc(1:npoints,ibox) = merge(1,0, conv(1:npoints,ilev) .gt. boxpos(1:npoints,ibox))
-          do j=1,npoints
+          DO j=1,npoints
              if (boxpos(j,ibox).le.conv(j,ilev)) then
                 maxocc(j,ibox) = 1
@@ -214 +214 @@
        ! Set last_frac to tca at this level, so as to be tca from last level next time round
        if (ncolprint.ne.0) then
-          do j=1,npoints ,1000
+          DO j=1,npoints ,1000
              write(6,'(a10)') 'j='
              write(6,'(8I10)') j