Changeset 1322 for palm/trunk/SOURCE/surface_coupler.f90

Timestamp:

Mar 20, 2014 4:38:49 PM (10 years ago)

Author:

raasch

Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:

• palm/trunk/SOURCE/surface_coupler.f90 (modified) (3 diffs)

palm/trunk/SOURCE/surface_coupler.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! REAL constants defined as wp-kind
 ! 
 ! Former revisions:
@@ -386 +386 @@
 !--       * latent heat of vaporization in m2/s2, or 540 cal/g, or 40.65 kJ/mol
 !--       /(rho_atm(=1.0)*c_p)
-          tswst = tswst + qswst_remote * 2.2626108E6 / 1005.0
+          tswst = tswst + qswst_remote * 2.2626108E6_wp / 1005.0_wp
 !
 !--        ...and convert it to a salinity flux at the sea surface (top)
@@ -399 +399 @@
 !--    (constants are the specific heat capacities for air and water)
 !--    now tswst is the ocean top heat flux
-       tswst = tswst / rho(nzt,:,:) * 1005.0 / 4218.0
+       tswst = tswst / rho(nzt,:,:) * 1005.0_wp / 4218.0_wp
 
 !