Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer

Timestamp:

Jul 23, 2024, 7:14:34 PM (4 months ago)

Author:

abarral

Message:

Replace 1DUTILS.h by module lmdz_1dutils.f90
Replace 1DConv.h by module lmdz_old_1dconv.f90 (it's only used by old_* files)
Convert *.F to *.f90
Fix gradsdef.h formatting
Remove unnecessary "RETURN" at the end of functions/subroutines

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer

Files:

• interp_sulf_input.F90 (modified) (1 diff)
• nucleation_tstep_mod.F90 (modified) (1 diff)
• stratH2O_methox.F90 (modified) (1 diff)
• sulfate_aer_mod.F90 (modified) (13 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/interp_sulf_input.F90

@@ -353 +353 @@
   ENDDO
  
-  RETURN
+
 
 END SUBROUTINE interp_sulf_input

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/nucleation_tstep_mod.F90

@@ -289 +289 @@
    + 0.00879662256826497*t*LOG(rh)) !1/cm3
 
-  RETURN
+
 
 END SUBROUTINE binapara

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/stratH2O_methox.F90

@@ -156 +156 @@
   ENDIF ! debutphy.OR.new month
   
-  RETURN
+
   
 END SUBROUTINE stratH2O_methox

LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/sulfate_aer_mod.F90

@@ -145 +145 @@
       ENDDO
 
-      RETURN
+
     
   END SUBROUTINE STRACOMP_KELVIN
@@ -717 +717 @@
     IF(VAL>99.99) VAL=99.99
    
-    RETURN
+
     END SUBROUTINE
 !****************************************************************
@@ -738 +738 @@
        ENDIF
 
-       RETURN
+
        END SUBROUTINE
 !********************************************************************
@@ -762 +762 @@
        ENDIF
    
-       RETURN
+
        END SUBROUTINE
 !********************************************************************
@@ -786 +786 @@
     +b4*(1.+log(tref/T)-tref/T) )   )
 
-       return
+
     end function psh2so4
 !-----------------------------------------------------------------------
@@ -805 +805 @@
       ndsh2so4_out=presat*10./(akb*T)
 
-       return
+
      end function ndsh2so4
 !-----------------------------------------------------------------------
@@ -832 +832 @@
 !      PRINT*,psh2o_out
       
-       return
+
      end function psh2o
 !-----------------------------------------------------------------------
@@ -883 +883 @@
       density_out=(a+b*T+c*T*T) ! units are gm/cm**3
 
-       return
+
      end function density
 !-----------------------------------------------------------------------
@@ -923 +923 @@
       surftension_out=so4sig*convfac
 
-       return
+
      end function surftension
 !-----------------------------------------------------------------------
@@ -998 +998 @@
          wph2so4_out = min(wph2so4_out,99.999)
 
-       return
+
      end function wph2so4
 !-----------------------------------------------------------------------
@@ -1020 +1020 @@
       solh2so4_out=cacta*xa*presat
 
-       return
+
      end function solh2so4
 !-----------------------------------------------------------------------      
@@ -1043 +1043 @@
         rpmvh2so4_out=rpmvh2so4_out*1000.
         
-       return
+
      end function rpmvh2so4
 !-----------------------------------------------------------------------
@@ -1057 +1057 @@
        rmvh2o_out=(x1+x2*T+x3*T*T)*1000.
        
-       return
+
      end function rmvh2o