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

Timestamp:

Oct 24, 2017 9:57:58 AM (7 years ago)

Author:

maronga

Message:

bugfix in radiation model and improvements in land surface scheme

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed phi --> latitude
+! 
+! 2564 2017-10-19 15:56:56Z Giersch
 ! Variable wind_turbine was added to control_parameters.
 ! 
@@ -1596 +1599 @@
 !
 !-- Compute Coriolis parameter
-    f  = 2.0_wp * omega * SIN( phi / 180.0_wp * pi )
-    fs = 2.0_wp * omega * COS( phi / 180.0_wp * pi )
+    f  = 2.0_wp * omega * SIN( latitude / 180.0_wp * pi )
+    fs = 2.0_wp * omega * COS( latitude / 180.0_wp * pi )
 
 !