Changeset 3880 for LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/conf_phys_m.F90

Timestamp:

Apr 28, 2021, 4:55:57 PM (3 years ago)

Author:

idelkadi

Message:

Online implementation of the radiative transfer code ECRAD in LMDZ.

• Inclusion of the ecrad directory containing the sources of the ECRAD code
• Adaptation of compilation scripts (CPP_ECRAD keys)
• Call of ecrad in radlwsw_m.F90 under the logical key iflag_rrtm = 2

File:

• LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/conf_phys_m.F90 (modified) (1 diff)

LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/conf_phys_m.F90

@@ -2516 +2516 @@
       IF (NSW.NE.2.AND.NSW.NE.4.AND.NSW.NE.6) THEN
         WRITE(lunout,*) ' ERROR iflag_rrtm=1 and NSW<>2,4,6 not possible'
+        CALL abort_physic('conf_phys','choice NSW not valid',1)
+      ENDIF
+    ELSE IF (iflag_rrtm .EQ. 2) THEN
+      IF (NSW.NE.2.AND.NSW.NE.4.AND.NSW.NE.6) THEN
+        WRITE(lunout,*) ' ERROR iflag_rrtm=2 and NSW<>2,4,6 not possible'
         CALL abort_physic('conf_phys','choice NSW not valid',1)
       ENDIF