Changeset 2443

Timestamp:

Feb 15, 2016, 3:31:52 PM (9 years ago)

Author:

acozic

Message:

add some validation tests for aerosols parameters (config_inca, aerosol_couple, flag_aerosol)

Location:

LMDZ5/trunk/libf/phylmd

Files:

• conf_phys_m.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -2224 +2224 @@
        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

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -1063 +1063 @@
         CALL getin_p('config_inca',config_inca)
 
+     ELSE 
+        config_inca='none' ! default
      END IF
+     
+     IF (aerosol_couple .AND. (config_inca /= "aero" .AND. config_inca /= "aeNP ")) THEN
+        abort_message = 'if aerosol_couple is activated, config_inca need to be aero or aeNP'
+        CALL abort_physic (modname,abort_message,1)
+     ENDIF
+
+
 
      rnebcon0(:,:) = 0.0
@@ -1366 +1375 @@
              cell_area, &
              latitude_deg, &
-             longitude_de, &
+             longitude_deg, &
              presnivs, &
              calday, &