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

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_aerosol_optics_description.F90

@@ -137 +137 @@
 
     ! Loop over hydrophilic types
-    do ja = 1,size(this%bin_philic)
+    DO ja = 1,size(this%bin_philic)
       ! Check if we have a match
       if (to_string(this%code_philic(:,ja)) == code_str &
@@ -146 +146 @@
     end do
     ! Repeat for the hydrophobic types
-    do ja = 1,size(this%bin_phobic)
+    DO ja = 1,size(this%bin_phobic)
       if (to_string(this%code_phobic(:,ja)) == code_str &
            &  .and. to_string(this%optical_model_phobic(1:len(optical_model_str),ja)) &
@@ -207 +207 @@
     if (lhydrophilic) then
       ! Loop over hydrophilic aerosol types
-      do ja = 1,size(this%bin_philic)
+      DO ja = 1,size(this%bin_philic)
         current_score = 0
         if (to_string(this%code_philic(:,ja)) == code_str) then
@@ -258 +258 @@
     else
       ! Loop over hydrophobic aerosol types
-      do ja = 1,size(this%bin_phobic)
+      DO ja = 1,size(this%bin_phobic)
         current_score = 0
         if (to_string(this%code_phobic(:,ja)) == code_str) then
@@ -325 +325 @@
     character(len=size(arr)) :: str
     integer :: jc
-    do jc = 1,size(arr)
+    DO jc = 1,size(arr)
       str(jc:jc) = arr(jc)
     end do