Changeset 5105 for LMDZ6/branches/Amaury_dev/libf/phylmd/radiation_AR4.F90

Timestamp:

Jul 23, 2024, 7:14:34 PM (8 weeks 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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/radiation_AR4.F90 (modified) (20 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/radiation_AR4.F90

@@ -303 +303 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE sw_lmdar4
 
@@ -472 +472 @@
   ! ------------------------------------------------------------------
 
-  RETURN
+
 END SUBROUTINE swu_lmdar4
 SUBROUTINE sw1s_lmdar4(knu, paer, flag_aer, tauae, pizae, cgae, palbd, palbp, &
@@ -694 +694 @@
   ! ------------------------------------------------------------------
 
-  RETURN
+
 END SUBROUTINE sw1s_lmdar4
 SUBROUTINE sw2s_lmdar4(knu, paer, flag_aer, tauae, pizae, cgae, paki, palbd, &
@@ -1191 +1191 @@
   ! ------------------------------------------------------------------
 
-  RETURN
+
 END SUBROUTINE sw2s_lmdar4
 SUBROUTINE swclr_lmdar4(knu, paer, flag_aer, tauae, pizae, cgae, palbp, &
@@ -1520 +1520 @@
   ! ------------------------------------------------------------------
 
-  RETURN
+
 END SUBROUTINE swclr_lmdar4
 SUBROUTINE swr_lmdar4(knu, palbd, pcg, pcld, pdsig, pomega, prayl, psec, &
@@ -1849 +1849 @@
   ! ------------------------------------------------------------------
 
-  RETURN
+
 END SUBROUTINE swr_lmdar4
 SUBROUTINE swde_lmdar4(pgg, pref, prmuz, pto1, pw, pre1, pre2, ptr1, ptr2)
@@ -1972 +1972 @@
 
   END DO
-  RETURN
+
 END SUBROUTINE swde_lmdar4
 SUBROUTINE swtt_lmdar4(knu, ka, pu, ptr)
@@ -2041 +2041 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE swtt_lmdar4
 SUBROUTINE swtt1_lmdar4(knu, kabs, kind, pu, ptr)
@@ -2115 +2115 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE swtt1_lmdar4
 ! IM ctes ds clesphys.h   SUBROUTINE LW(RCO2,RCH4,RN2O,RCFC11,RCFC12,
@@ -2307 +2307 @@
   END DO
   ! ------------------------------------------------------------------
-  RETURN
+
 END SUBROUTINE lw_lmdar4
 ! IM ctes ds clesphys.h   SUBROUTINE LWU(RCO2, RCH4, RN2O, RCFC11, RCFC12,
@@ -2676 +2676 @@
 
 
-  RETURN
+
 END SUBROUTINE lwu_lmdar4
 SUBROUTINE lwbv_lmdar4(klim, pdp, pdt0, pemis, ppmb, ptl, ptave, pabcu, &
@@ -2762 +2762 @@
     pcntrb, pcts, pfluc)
   ! ------------------------------------------------------------------
-  RETURN
+
 END SUBROUTINE lwbv_lmdar4
 SUBROUTINE lwc_lmdar4(klim, pcldld, pcldlu, pemis, pfluc, pbint, pbsuin, &
@@ -3138 +3138 @@
   END IF
 
-  RETURN
+
 END SUBROUTINE lwc_lmdar4
 SUBROUTINE lwb_lmdar4(pdt0, ptave, ptl, pb, pbint, pbsuin, pbsur, pbtop, &
@@ -4537 +4537 @@
   ! ------------------------------------------------------------------
 
-  RETURN
+
 END SUBROUTINE lwb_lmdar4
 SUBROUTINE lwv_lmdar4(kuaer, ktraer, klim, pabcu, pb, pbint, pbsuin, pbsur, &
@@ -4642 +4642 @@
 
 
-  RETURN
+
 END SUBROUTINE lwv_lmdar4
 SUBROUTINE lwvb_lmdar4(kuaer, ktraer, klim, pabcu, padjd, padju, pb, pbint, &
@@ -4942 +4942 @@
   ! ------------------------------------------------------------------
 
-  RETURN
+
 END SUBROUTINE lwvb_lmdar4
 SUBROUTINE lwvd_lmdar4(kuaer, ktraer, pabcu, pdbdt, pga, pgb, pcntrb, pdisd, &
@@ -5174 +5174 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE lwvd_lmdar4
 SUBROUTINE lwvn_lmdar4(kuaer, ktraer, pabcu, pdbsl, pga, pgb, padjd, padju, &
@@ -5367 +5367 @@
   END DO
 
-  RETURN
+
 
 END SUBROUTINE lwvn_lmdar4
@@ -5541 +5541 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE lwtt_lmdar4
 SUBROUTINE lwttm_lmdar4(pga, pgb, puu1, puu2, ptt)
@@ -5713 +5713 @@
   END DO
 
-  RETURN
+
 END SUBROUTINE lwttm_lmdar4