Changeset 3404 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Oct 23, 2018 1:29:11 PM (6 years ago)

Author:

suehring

Message:

Consider time-dependent geostrophic wind components in offline nesting

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Consider time-dependent geostrophic wind components in offline nesting
+! 
+! 3376 2018-10-19 10:15:32Z suehring
 ! Additional check for consistent building initialization implemented
 ! 
@@ -3088 +3091 @@
        USE control_parameters,                                                 &
            ONLY:  bc_dirichlet_l, bc_dirichlet_n, bc_dirichlet_r,              &
-                  bc_dirichlet_s, bc_lr_cyc, bc_ns_cyc, humidity,              &
-                  neutral, nesting_offline, time_since_reference_point
+                  bc_dirichlet_s, humidity, neutral, nesting_offline,          &
+                  time_since_reference_point
 
        USE indices,                                                            &
@@ -3170 +3173 @@
        nest_offl%tind_p = nest_offl%tind + 1       
 !
-!--    Read geostrophic wind components. In case of forcing, this is only
-!--    required if cyclic boundary conditions are applied.
-       IF ( bc_lr_cyc  .AND.  bc_ns_cyc )  THEN
-          DO  t = nest_offl%tind, nest_offl%tind_p
-!              CALL get_variable_pr( id_dynamic, 'tend_ug', t+1,           &
-!                                    nest_offl%ug(t-nest_offl%tind,:) )
-!              CALL get_variable_pr( id_dynamic, 'tend_vg', t+1,           &
-!                                    nest_offl%ug(t-nest_offl%tind,:) )
-             CALL get_variable_pr( id_dynamic, 'ls_forcing_ug', t+1,           &
-                                   nest_offl%ug(t-nest_offl%tind,:) )
-             CALL get_variable_pr( id_dynamic, 'ls_forcing_vg', t+1,           &
-                                   nest_offl%ug(t-nest_offl%tind,:) )
-          ENDDO
-       ENDIF
+!--    Read geostrophic wind components
+       DO  t = nest_offl%tind, nest_offl%tind_p
+          CALL get_variable_pr( id_dynamic, 'ls_forcing_ug', t+1,              &
+                                nest_offl%ug(t-nest_offl%tind,nzb+1:nzt) )
+          CALL get_variable_pr( id_dynamic, 'ls_forcing_vg', t+1,              &
+                                nest_offl%vg(t-nest_offl%tind,nzb+1:nzt) )
+       ENDDO
 !
 !--    Read data at lateral and top boundaries. Please note, at left and