Changeset 4196 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Aug 29, 2019 11:02:06 AM (5 years ago)

Author:

gronemeier

Message:

Consider rotation of model domain for claculation of Coriolis force:

• check_parameters: Overwrite rotation_angle from namelist by value from static driver;
• coriolis: Consider rotation of model domain;
• header: Write information about rotation angle;
• modules: Added rotation_angle;
• netcdf_interface_mod: replaced rotation angle from input-netCDF file by namelist parameter 'rotation_angle';
• ocean_mod: Consider rotation of model domain for calculating the Stokes drift;
• parin: added rotation_angle to initialization_parameters;

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! 4172 2019-08-20 11:55:33Z oliver.maas
+! Overwrite rotation_angle from namelist by value from static driver
+! 
+! 11:55:33Z oliver.maas
 ! removed conversion from recycle_absolute_quantities to raq, added check and 
 ! error message for correct input of recycling_method_for_thermodynamic_quantities
@@ -1085 +1088 @@
 
 !
-!-- Overwrite latitude if necessary and compute Coriolis parameter. 
+!-- Overwrite parameters from namelist if necessary and compute Coriolis parameter. 
 !-- @todo - move initialization of f and fs to coriolis_mod.
     IF ( input_pids_static )  THEN
-       latitude  = init_model%latitude
-       longitude = init_model%longitude
+       latitude       = init_model%latitude
+       longitude      = init_model%longitude
+       rotation_angle = init_model%rotation_angle
     ENDIF