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

Timestamp:

Aug 29, 2019 11:02:06 AM (6 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/header.f90 (modified) (3 diffs)

palm/trunk/SOURCE/header.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Write information about rotation angle
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -1466 +1469 @@
 !
 !-- Geostrophic parameters
-    WRITE ( io, 410 )  latitude, longitude, omega, f, fs
+    WRITE ( io, 410 )  latitude, longitude, rotation_angle, omega, f, fs
 
 !
@@ -1796 +1799 @@
 400 FORMAT (//' Physical quantities:'/ &
               ' -------------------'/)
-410 FORMAT ('    Geograph. latitude  :   latitude  = ',F4.1,' degr'/   &
-            '    Geograph. longitude :   longitude = ',F4.1,' degr'/   &
+410 FORMAT ('    Geograph. latitude  :   latitude  = ',F5.1,' degr'/   &
+            '    Geograph. longitude :   longitude = ',F5.1,' degr'/   &
+            '    Rotation angle      :   rotation_angle = ',F5.1,' degr'/   &
             '    Angular velocity    :   omega  =',E10.3,' rad/s'/  &
             '    Coriolis parameter  :   f      = ',F9.6,' 1/s'/    &