Changeset 3579 for palm/trunk/SOURCE/nesting_offl_mod.f90

Timestamp:

Nov 29, 2018 3:32:39 PM (3 years ago)

Author:

suehring

Message:

Bugfix in initialization of synthetic turbulence generator and calculation of turbulence scaling parameters in case of topography; checks for synthetic turbulence generator and offline nesting added

File:

• palm/trunk/SOURCE/nesting_offl_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/nesting_offl_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Check implemented for offline nesting in child domain 
+! 
+! 3413 2018-10-24 10:28:44Z suehring
 ! Keyword ID set
 ! 
@@ -79 +82 @@
 !
 !-- Public subroutines
-    PUBLIC nesting_offl_bc, nesting_offl_header, nesting_offl_init,            &
-           nesting_offl_mass_conservation, nesting_offl_parin 
+    PUBLIC nesting_offl_bc, nesting_offl_check_parameters, nesting_offl_header,&
+           nesting_offl_init, nesting_offl_mass_conservation, nesting_offl_parin 
 !
 !-- Public variables
@@ -88 +91 @@
        MODULE PROCEDURE nesting_offl_bc
     END INTERFACE nesting_offl_bc
+    
+    INTERFACE nesting_offl_check_parameters
+       MODULE PROCEDURE nesting_offl_check_parameters
+    END INTERFACE nesting_offl_check_parameters
     
     INTERFACE nesting_offl_header
@@ -879 +886 @@
 !------------------------------------------------------------------------------!
     SUBROUTINE nesting_offl_check_parameters 
+    
+       USE control_parameters,                                                    &
+        ONLY:  child_domain, message_string, nesting_offline
 
        IMPLICIT NONE
 !
 !--    Perform checks
+       IF ( nesting_offline  .AND.  child_domain )  THEN
+          message_string = 'Offline nesting is only applicable in root model.'
+          CALL message( 'stg_check_parameters', 'PA0622', 1, 2, 0, 6, 0 )       
+       ENDIF