Moved some namelist checks from dyn_em/namelist_remappings_em.h

to share/module_check_a_mundo.F and provided additional bullet-proofing:

If the user turns off sst_update, grid_fdda or grid_sfdda, check_a_mundo
will set related namelist options to 0 as a kind favor, print out
a note, and run the simulation

If the user turns on any of these options and does not set the appropriate
io_form option (io_form_auxinput4, io_form_gfdda, io_form_sgfdda),
check_a_mundo will stop. An an error message will be printed requesting the
user to modify the namelist as a learning experience.

M         share/module_check_a_mundo.F
M         dyn_em/namelist_remappings_em.h



git-svn-id: https://svn-wrf-model.cgd.ucar.edu/trunk@4392 b0b5d27b-6f0f-0410-a2a3-cb1e977edc3d

Author: Julie Schramm

Diff for: dyn_em/namelist_remappings_em.h

@@ -1,39 +1,5 @@
 !WRF:DRIVER_LAYER:CORE_SPECIFIC
 
-!  Special input considerations: if analysis FDDA is turned off, reset the
-!  interval and io_forms to zero so that there is no chance that the WRF
-!  tries to input the data.  Same for the SST update option.
-
-IF ( MAXVAL( model_config_rec%grid_fdda ) .EQ. 0 ) THEN
-   model_config_rec%io_form_gfdda    = 0
-   model_config_rec%gfdda_interval   = 0
-   model_config_rec%gfdda_interval_d = 0
-   model_config_rec%gfdda_interval_h = 0
-   model_config_rec%gfdda_interval_m = 0
-   model_config_rec%gfdda_interval_s = 0
-   model_config_rec%gfdda_interval_y = 0
-END IF
-
-IF ( MAXVAL( model_config_rec%grid_sfdda ) .EQ. 0 ) THEN
-   model_config_rec%io_form_sgfdda    = 0
-   model_config_rec%sgfdda_interval   = 0
-   model_config_rec%sgfdda_interval_d = 0
-   model_config_rec%sgfdda_interval_h = 0
-   model_config_rec%sgfdda_interval_m = 0
-   model_config_rec%sgfdda_interval_s = 0
-   model_config_rec%sgfdda_interval_y = 0
-END IF
-
-IF ( model_config_rec%sst_update .EQ. 0 ) THEN
-   model_config_rec%io_form_auxinput4    = 0
-   model_config_rec%auxinput4_interval   = 0
-   model_config_rec%auxinput4_interval_d = 0
-   model_config_rec%auxinput4_interval_h = 0
-   model_config_rec%auxinput4_interval_m = 0
-   model_config_rec%auxinput4_interval_s = 0
-   model_config_rec%auxinput4_interval_y = 0
-END IF
-
 ! Namelist remappings.  This file is included by the initial_config
 ! routine in frame/module_configure.F and provides em_core specific
 ! remappings of namelist variables

Diff for: share/module_check_a_mundo.F

@@ -83,6 +83,33 @@ SUBROUTINE  check_nml_consistency
          END IF
       ENDDO
 
+!-----------------------------------------------------------------------
+! If sst_update = 0, set io_form_auxinput4 to 0 so WRF will not try to
+! input the data; auxinput_interval must also be 0
+!-----------------------------------------------------------------------
+
+      IF ( model_config_rec%sst_update .EQ. 0 ) THEN
+         model_config_rec%io_form_auxinput4 = 0
+         DO i = 1, model_config_rec % max_dom
+            WRITE (wrf_err_message, FMT='(A,A)') '--- NOTE: sst_update is 0, ', &
+                  'setting io_form_auxinput4 = 0 and auxinput4_interval = 0 for all domains'
+            CALL wrf_message ( wrf_err_message )
+            model_config_rec%auxinput4_interval(i)   = 0
+            model_config_rec%auxinput4_interval_y(i) = 0
+            model_config_rec%auxinput4_interval_d(i) = 0
+            model_config_rec%auxinput4_interval_h(i) = 0
+            model_config_rec%auxinput4_interval_m(i) = 0
+            model_config_rec%auxinput4_interval_s(i) = 0
+         ENDDO
+      ELSE
+         IF ( model_config_rec%io_form_auxinput4 .EQ. 0 ) THEN
+            wrf_err_message = '--- ERROR: If sst_update /= 0, io_form_auxinput4 must be /= 0'
+            CALL wrf_message ( wrf_err_message )
+            wrf_err_message = '--- Set io_form_auxinput4 in the time_control namelist (probably to 2).'
+            CALL wrf_error_fatal ( TRIM( wrf_err_message ) )
+         END IF
+      END IF
+
 #if ((EM_CORE == 1) && (DA_CORE != 1))
 !-----------------------------------------------------------------------
 ! Check that if grid_sfdda is one, grid_fdda is also 1
@@ -109,7 +136,7 @@ SUBROUTINE  check_nml_consistency
       DO i = 1, model_config_rec % max_dom
 
          IF ( model_config_rec%grid_fdda(i) .EQ. 0 ) THEN
-            WRITE (wrf_err_message, FMT='(A,I6,A)') 'NOTE: grid_fdda is 0 for domain ', &
+            WRITE (wrf_err_message, FMT='(A,I6,A)') '--- NOTE: grid_fdda is 0 for domain ', &
                          i, ', setting gfdda interval and ending time to 0 for that domain.'
             CALL wrf_message ( wrf_err_message )
 
@@ -129,7 +156,7 @@ SUBROUTINE  check_nml_consistency
          IF ( ( model_config_rec%grid_sfdda(i) .EQ. 0 ) .AND. &
               ( model_config_rec%pxlsm_soil_nudge(i) .EQ. 0 ) ) THEN
             WRITE (wrf_err_message, FMT='(A,I6,A)') &
-                         'NOTE: both grid_sfdda and pxlsm_soil_nudge are 0 for domain ', &
+                         '--- NOTE: both grid_sfdda and pxlsm_soil_nudge are 0 for domain ', &
                          i, ', setting sgfdda interval and ending time to 0 for that domain.'
             CALL wrf_message ( wrf_err_message )
 
@@ -147,7 +174,7 @@ SUBROUTINE  check_nml_consistency
          END IF
 
          IF ( model_config_rec%obs_nudge_opt(i) .EQ. 0 ) THEN
-            WRITE (wrf_err_message, FMT='(A,I6,A)') 'NOTE: obs_nudge_opt is 0 for domain ', &
+            WRITE (wrf_err_message, FMT='(A,I6,A)') '--- NOTE: obs_nudge_opt is 0 for domain ', &
                          i, ', setting obs nudging interval and ending time to 0 for that domain.'
             CALL wrf_message ( wrf_err_message )
 
@@ -165,7 +192,35 @@ SUBROUTINE  check_nml_consistency
             model_config_rec%auxinput11_end_m(i) = 0
             model_config_rec%auxinput11_end_s(i) = 0
          END IF
-      ENDDO
+
+      ENDDO      ! Loop over domains
+
+!-----------------------------------------------------------------------
+!  If analysis FDDA is turned off, reset the io_forms to zero so that
+!  there is no chance that WRF tries to input the data.
+!-----------------------------------------------------------------------
+
+      IF ( MAXVAL( model_config_rec%grid_fdda ) .EQ. 0 ) THEN
+         model_config_rec%io_form_gfdda = 0
+      ELSE
+         IF ( model_config_rec%io_form_gfdda .EQ. 0 ) THEN
+            wrf_err_message = '--- ERROR: If grid_fdda /= 0, io_form_gfdda must be /= 0'
+            CALL wrf_message ( wrf_err_message )
+            wrf_err_message = '--- Set io_form_gfdda in the time_control namelist (probably to 2).'
+            CALL wrf_error_fatal ( TRIM( wrf_err_message ) )
+         END IF
+      END IF
+      IF ( MAXVAL( model_config_rec%grid_sfdda ) .EQ. 0 ) THEN
+         model_config_rec%io_form_sgfdda = 0
+      ELSE
+         IF ( model_config_rec%io_form_sgfdda .EQ. 0 ) THEN
+            wrf_err_message = '--- ERROR: If grid_sfdda /= 0, io_form_sgfdda must be /= 0'
+            CALL wrf_message ( wrf_err_message )
+            wrf_err_message = '--- Set io_form_sgfdda in the time_control namelist (probably to 2).'
+            CALL wrf_error_fatal ( TRIM( wrf_err_message ) )
+         END IF
+      END IF
+
 #endif
 
    END SUBROUTINE 
@@ -197,7 +252,7 @@ SUBROUTINE set_physics_rconfigs
          model_config_rec % cam_abs_dim1 = 4 
          model_config_rec % cam_abs_dim2 = model_config_rec % e_vert(1)
 
-         wrf_err_message = 'NOTE: CAM radiation is in use, setting:  ' // &
+         wrf_err_message = '--- NOTE: CAM radiation is in use, setting:  ' // &
                            'paerlev=29, levsiz=59, cam_abs_dim1=4, cam_abs_dim2=e_vert'
          CALL wrf_message ( wrf_err_message )
 
@@ -221,7 +276,7 @@ SUBROUTINE set_physics_rconfigs
       IF ( model_config_rec % sf_surface_physics(1) .EQ. 88          ) &
            model_config_rec % num_soil_layers = 4
 
-      WRITE (wrf_err_message, FMT='(A,I6)') 'NOTE: num_soil_layers has been set to ', &
+      WRITE (wrf_err_message, FMT='(A,I6)') '--- NOTE: num_soil_layers has been set to ', &
                                              model_config_rec % num_soil_layers
       CALL wrf_message ( wrf_err_message )