Changeset 4878 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Feb 18, 2021 9:47:49 AM (4 years ago)

Author:

suehring

Message:

Rename resize_array into add_ghost_layers; remove number of passed indices; replace subroutine calls with interface name

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (7 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Rename resize_array into add_ghost_layers and remove number of passed indices
+!
+! 4877 2021-02-17 16:17:35Z suehring
 ! Bugfix in initialization of vertical surfaces with roughness and surface heat fluxes
 !
@@ -198 +201 @@
 
     USE netcdf_data_input_mod,                                                                     &
-        ONLY:  char_fill,                                                                          &
+        ONLY:  add_ghost_layers,                                                                   &
+               char_fill,                                                                          &
                check_existence,                                                                    &
                close_input_file,                                                                   &
@@ -213 +217 @@
                pids_id,                                                                            &
                real_2d,                                                                            &
-               resize_array,                                                                       &
                vars_pids
 
@@ -1515 +1518 @@
 !--       Read variable
           CALL get_variable( pids_id, 'z0', tmp_2d%var, nxl, nxr, nys, nyn )
-          CALL resize_array( tmp_2d%var, nys, nyn, nxl, nxr )
+          CALL add_ghost_layers( tmp_2d%var )
           CALL exchange_horiz_2d( tmp_2d%var )
 !
@@ -1543 +1546 @@
 !--       Read variable
           CALL get_variable( pids_id, 'shf', tmp_2d%var, nxl, nxr, nys, nyn )
-          CALL resize_array( tmp_2d%var, nys, nyn, nxl, nxr )
+          CALL add_ghost_layers( tmp_2d%var )
           CALL exchange_horiz_2d( tmp_2d%var )
 !
@@ -1572 +1575 @@
 !--          Read variable
              CALL get_variable( pids_id, 'qsws', tmp_2d%var, nxl, nxr, nys, nyn )
-             CALL resize_array( tmp_2d%var, nys, nyn, nxl, nxr )
+             CALL add_ghost_layers( tmp_2d%var )
              CALL exchange_horiz_2d( tmp_2d%var )
 !
@@ -1603 +1606 @@
 !--          Read variable
              CALL get_variable( pids_id, 'ssws', tmp_2d%var, nxl, nxr, nys, nyn )
-             CALL resize_array( tmp_2d%var, nys, nyn, nxl, nxr )
+             CALL add_ghost_layers( tmp_2d%var )
              CALL exchange_horiz_2d( tmp_2d%var )
 !