Changeset 2817 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Feb 19, 2018 4:32:21 PM (7 years ago)

Author:

knoop

Message:

Preliminary gust module interface implemented

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (5 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Preliminary gust module interface implemented
+! 
+! 2798 2018-02-09 17:16:39Z suehring
 ! Consider also default-type surfaces for surface temperature output. 
 ! 
@@ -602 +605 @@
     USE dvrp_variables
     USE grid_variables
+    USE gust_mod,                                                              &
+        ONLY: gust_check_data_output, gust_check_data_output_pr,               &
+              gust_check_parameters, gust_module_enabled
     USE indices
     USE land_surface_model_mod,                                                &
@@ -1413 +1419 @@
     IF ( radiation )  CALL radiation_check_parameters
 !
+!-- When gust module is used, perform additional checks
+    IF ( gust_module_enabled )  CALL gust_check_parameters
+!
 !-- When large-scale forcing or nudging is used, peform addtional checks
     IF ( large_scale_forcing  .OR.  nudging )  CALL lsf_nudging_check_parameters
@@ -3099 +3108 @@
                                                      unit, dopr_unit(i) )
              ENDIF
+!
+!--          Block of gust module profile outputs
+             IF ( unit == 'illegal'  .AND.  gust_module_enabled  )  THEN
+                   CALL gust_check_data_output_pr( data_output_pr(i), i, unit, &
+                                                   dopr_unit(i) )
+             ENDIF
 
              IF ( unit == 'illegal' )  THEN                                        
@@ -3418 +3433 @@
              IF ( unit == 'illegal' )  THEN
                 CALL radiation_check_data_output( var, unit, i, ilen, k )
+             ENDIF
+
+!
+!--          Block of gust module outputs
+             IF ( unit == 'illegal'  .AND.  gust_module_enabled  )  THEN
+                CALL gust_check_data_output ( var, unit )
              ENDIF