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

Timestamp:

Oct 3, 2018 2:39:40 AM (6 years ago)

Author:

raasch

Message:

Craik-Leibovich force and wave breaking effects added to ocean mode, header output for ocean mode

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! small code rearrangements
+! 
+! 3301 2018-10-02 17:10:50Z gronemeier
 ! corrected former revision section
 ! 
@@ -1468 +1471 @@
 
 !-- Check the module settings
-    IF ( ocean_mode )  CALL ocean_check_parameters
+    IF ( bulk_cloud_model )     CALL bcm_check_parameters
+    IF ( gust_module_enabled )  CALL gust_check_parameters
+    IF ( large_scale_forcing  .OR.  nudging )                                  &
+                                CALL lsf_nudging_check_parameters
+    IF ( land_surface )         CALL lsm_check_parameters
+    IF ( ocean_mode )           CALL ocean_check_parameters
+    IF ( plant_canopy )         CALL pcm_check_parameters
+    IF ( radiation )            CALL radiation_check_parameters
+    IF ( calculate_spectra )    CALL spectra_check_parameters
+    CALL stg_check_parameters
     CALL tcm_check_parameters
-    CALL stg_check_parameters
-    IF ( plant_canopy )         CALL pcm_check_parameters
-    IF ( calculate_spectra )    CALL spectra_check_parameters
-    IF ( land_surface )         CALL lsm_check_parameters
-    IF ( bulk_cloud_model )     CALL bcm_check_parameters
     IF ( urban_surface )        CALL usm_check_parameters
     IF ( wind_turbine )         CALL wtm_check_parameters
-    IF ( radiation )            CALL radiation_check_parameters
-    IF ( gust_module_enabled )  CALL gust_check_parameters
-    IF ( large_scale_forcing  .OR.  nudging )  CALL lsf_nudging_check_parameters
 
 !