Changeset 4196 for palm/trunk/SOURCE/modules.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/modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added rotation_angle
+! 
+! 4184 2019-08-23 08:07:40Z oliver.maas
 ! changed allocated length of recycling_method_for_thermodynamic_quantities 
 ! from 20 to 80 characters
@@ -867 +870 @@
     REAL(wp) ::  rho_reference                                 !< reference state of density
     REAL(wp) ::  rho_surface                                   !< surface value of density
+    REAL(wp) ::  rotation_angle = 0.0_wp                       !< angle between real North and model North (clockwise)
     REAL(wp) ::  roughness_length = 0.1_wp                     !< namelist parameter
     REAL(wp) ::  simulated_time = 0.0_wp                       !< elapsed simulated time