Changeset 2701 for LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

Timestamp:

Nov 14, 2016, 2:37:01 PM (8 years ago)

Author:

oboucher

Message:

Adding a compatibility test on StratAer? and RRTM

File:

• LMDZ5/trunk/libf/phylmd/conf_phys_m.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -2295 +2295 @@
        CALL abort_physic('conf_phys','choice iflag_rrtm not valid',1)
     ENDIF
+#ifdef CPP_StratAer
+    IF (iflag_rrtm .NE. 1) THEN 
+       WRITE(lunout,*) ' ERROR iflag_rrtm<>1 but StratAer activated'
+       CALL abort_physic('conf_phys','iflag_rrtm not valid for StratAer',1)
+    ENDIF
+#endif
 
     !--test on ocean surface albedo