Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/parasol.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/parasol.F90 (modified) (1 diff)

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

@@ -159 +159 @@
     ! Compute grid-box averaged Parasol reflectances
     parasolrefl(:,:) = 0._wp
-    do k = 1, nrefl
-       do ic = 1, ncol
+    DO k = 1, nrefl
+       DO ic = 1, ncol
           parasolrefl(:,k) = parasolrefl(:,k) + refl(:,ic,k)
        enddo
     enddo
     
-    do k = 1, nrefl
+    DO k = 1, nrefl
        parasolrefl(:,k) = parasolrefl(:,k) / float(ncol)
        ! if land=1 -> parasolrefl=R_UNDEF