Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suclopn.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suclopn.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/rrtm/suclopn.F90

@@ -1002 +1002 @@
 !    RASWCE(JNU)=ZASWCE14(JNU)
 !    RASWCF(JNU)=ZASWCF14(JNU)*1.E-03_JPRB
-!
+
 !    REBCUA(JNU)=ZEBCUA14(JNU)
 !    REBCUB(JNU)=ZEBCUB14(JNU)
@@ -1009 +1009 @@
 !    REBCUE(JNU)=ZEBCUE14(JNU)
 !    REBCUF(JNU)=ZEBCUF14(JNU)
-!
+
 !    RYFWCA(JNU)=ZYFWCA14(JNU)
 !    RYFWCB(JNU)=ZYFWCB14(JNU)
@@ -1016 +1016 @@
 !    RYFWCE(JNU)=ZYFWCE14(JNU)
 !    RYFWCF(JNU)=ZYFWCF14(JNU)
-!
+
 !    RSUSHE(JNU)=ZSUSHE14(JNU)*1.E-02_JPRB
 !    RSUSHF(JNU)=ZSUSHF14(JNU)*1.E-02_JPRB
@@ -1053 +1053 @@
 !!    RFUDD2(JNU)=ZFUDD214(JNU)
 !!    RFUDD3(JNU)=ZFUDD314(JNU)
-!
+
 !    PRINT *,'SUCLOPN: 14-SPECTRAL INTERVALS --> RRTM_SW'     
 !  ENDDO