Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad.v1.5.1/radiation_aerosol_optics_data.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (7 weeks 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_data.F90 (modified) (4 diffs)

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

@@ -613 +613 @@
     iend   = ubound(itypes,1)
 
-    do jtype = istart, iend
+    DO jtype = istart, iend
       if (itypes(jtype) == 0) then
         call this%set_empty_type(jtype)
@@ -649 +649 @@
     else
       calc_rh_index = 1
-      do while (rh > this%rh_lower(calc_rh_index + 1))
+      DO while (rh > this%rh_lower(calc_rh_index + 1))
         calc_rh_index = calc_rh_index + 1
       end do
@@ -676 +676 @@
     end if
 
-    do jtype = 1,size(i_type_map)
+    DO jtype = 1,size(i_type_map)
       if (i_type_map(jtype) > 0) then
         write(nulout,'(i4,a,a)') jtype, ' -> hydrophobic type ', &
@@ -708 +708 @@
 
     ! Find index of first character
-    do while (i_line_current < iline)
+    DO while (i_line_current < iline)
       i_start_new = scan(str(istart:iend), new_line(' '))
       if (i_start_new == 0) then