Changeset 3880 for LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/physiq_mod.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/physiq_mod.F90 (modified) (2 diffs)

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

@@ -3994 +3994 @@
 
        IF (ok_newmicro) then
-          IF (iflag_rrtm.NE.0) THEN 
+!          IF (iflag_rrtm.NE.0) THEN 
+          IF (iflag_rrtm.EQ.1) THEN
 #ifdef CPP_RRTM
              IF (ok_cdnc.AND.NRADLP.NE.3) THEN
@@ -4114 +4115 @@
        !input to radiation (DICE)
        !
-       IF (iflag_radia .ge. 2) THEN
+       IF (iflag_radia .gt. 2) THEN
           zsav_tsol (:) = zxtsol(:)
           CALL perturb_radlwsw(zxtsol,iflag_radia)