Changeset 2456 for LMDZ5/trunk/libf/phylmd

Timestamp:

Feb 28, 2016, 1:02:31 PM (9 years ago)

Author:

jyg

Message:

Fix to the previous commit

File:

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

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -2239 +2239 @@
        END IF
     END IF
+
+    ! Flag_aerosol cannot be to zero if we are in coupled mode for aerosol
+    IF (aerosol_couple .AND. flag_aerosol .eq. 0 ) THEN
+       CALL abort_physic('conf_phys', 'flag_aerosol cannot be to zero if aerosol_couple=y ', 1)
+    ENDIF
+
+    ! flag_aerosol need to be different to zero if ok_cdnc is activated
+    IF (ok_cdnc .AND. flag_aerosol .eq. 0) THEN
+       CALL abort_physic('conf_phys', 'flag_aerosol cannot be to zero if ok_cdnc is activated ', 1)
+    ENDIF
 
     ! ok_cdnc must be set to y if ok_aie is activated