Changeset 4843 for palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

Timestamp:

Jan 15, 2021 3:22:11 PM (3 years ago)

Author:

raasch

Message:

local namelist parameter added to switch off the module although the respective module namelist appears in the namelist file, further copyright updates

File:

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

palm/trunk/SOURCE/pmc_handle_communicator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! local namelist parameter added to switch off the module although the respective module namelist
+! appears in the namelist file
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! Canopy-restricted anterpolation introduced. New namelist parameter anterpolation_starting_height 
 ! introduced for controlling canopy-restricted anterpolation.
@@ -445 +449 @@
     INTEGER(iwp) ::  bad_llcorner  !<
     INTEGER(iwp) ::  i             !<
-    INTEGER(iwp) ::  istat         !<
+    INTEGER(iwp) ::  io_status     !<
+
+    LOGICAL ::  switch_off_module = .FALSE.  !< local namelist parameter to switch off the module
+                                             !< although the respective module namelist appears in
+                                             !< the namelist file
 
     TYPE(pmc_layout), DIMENSION(pmc_max_models) ::  domain_layouts  !<
 
-    NAMELIST /nesting_parameters/  domain_layouts,                                                 &
+    NAMELIST /nesting_parameters/  anterpolation_buffer_width,                                     &
+                                   anterpolation_starting_height,                                  &
+                                   domain_layouts,                                                 &
                                    nesting_datatransfer_mode,                                      &
                                    nesting_mode,                                                   &
-                                   anterpolation_buffer_width,                                     &
-                                   anterpolation_starting_height
+                                   switch_off_module
+
 
 !
@@ -460 +470 @@
     m_ncpl =   0
 
-    pmc_status = pmc_status_ok
+    pmc_status = pmc_no_namelist_found
 !
 !-- Open the NAMELIST-file and read the nesting layout
     CALL check_open( 11 )
-    READ ( 11, nesting_parameters, IOSTAT = istat )
+    READ ( 11, nesting_parameters, IOSTAT = io_status )
 !
 !-- Set filepointer to the beginning of the file. Otherwise process 0 will later be unable to read
@@ -470 +480 @@
     REWIND ( 11 )
 
-    IF ( istat < 0 )  THEN
+    IF ( io_status == 0 )  THEN
+!
+!--    nesting_parameters namelist was found and read correctly. Enable the nesting by setting
+!--    the palm model coupler status respectively.
+       IF ( .NOT. switch_off_module )  THEN
+          pmc_status = pmc_status_ok
+       ELSE
+          RETURN
+       ENDIF
+    ELSEIF ( io_status < 0 )  THEN
 !
 !--    No nesting_parameters-NAMELIST found
-       pmc_status = pmc_no_namelist_found
        RETURN
-    ELSEIF ( istat > 0 )  THEN
+    ELSEIF ( io_status > 0 )  THEN
 !
 !--    Errors in reading nesting_parameters-NAMELIST
@@ -481 +499 @@
        RETURN
     ENDIF
+
 !
 !-- Output location message