Changeset 4226 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Sep 10, 2019 5:03:24 PM (5 years ago)

Author:

suehring

Message:

Offline nesting: data input modularized; time variable is defined relative to time_utc_init, so that input data is correctly mapped to actual model time; checks rephrased and new checks for the time dimension added; Netcdf input: routine to retrieve dimension length renamed

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changes in interface for the offline nesting
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -257 +260 @@
 
     USE nesting_offl_mod,                                                                          &
-        ONLY:  nesting_offl_bc, nesting_offl_mass_conservation
+        ONLY:  nesting_offl_bc,                                                                    &
+               nesting_offl_geostrophic_wind,                                                      &
+               nesting_offl_input,                                                                 &
+               nesting_offl_interpolation_factor,                                                  &
+               nesting_offl_mass_conservation
 
     USE netcdf_data_input_mod,                                                                     &
-        ONLY:  chem_emis, chem_emis_att, nest_offl, netcdf_data_input_offline_nesting
+        ONLY:  chem_emis, chem_emis_att
 
     USE ocean_mod,                                                                                 &
@@ -566 +573 @@
        ENDIF
 !
-!--    If forcing by larger-scale models is applied, check if new data
-!--    at domain boundaries need to be read.
-       IF ( nesting_offline ) THEN
-          IF ( nest_offl%time(nest_offl%tind_p) <= time_since_reference_point ) &
-               CALL netcdf_data_input_offline_nesting
-       ENDIF
-
+!--    Input of boundary data. 
+       IF ( nesting_offline )  CALL nesting_offl_input
 !
 !--    Execute all other module actions routunes
@@ -955 +957 @@
 !
 !--       Map forcing data derived from larger scale model onto domain 
-!--       boundaries. 
+!--       boundaries. Further, update geostrophic wind components.
           IF ( nesting_offline  .AND.  intermediate_timestep_count ==                              &
-                                       intermediate_timestep_count_max  )                          &
+                                       intermediate_timestep_count_max  )  THEN
+!--          Determine interpolation factor before boundary conditions and geostrophic wind 
+!--          is updated.
+             CALL nesting_offl_interpolation_factor
              CALL nesting_offl_bc
+             CALL nesting_offl_geostrophic_wind
+          ENDIF
 !
 !--       Impose a turbulent inflow using synthetic generated turbulence.