Ignore:
Timestamp:
Mar 20, 2014 4:38:49 PM (7 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_coupler.f90

    r1321 r1322  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! REAL constants defined as wp-kind
    2323!
    2424! Former revisions:
     
    386386!--       * latent heat of vaporization in m2/s2, or 540 cal/g, or 40.65 kJ/mol
    387387!--       /(rho_atm(=1.0)*c_p)
    388           tswst = tswst + qswst_remote * 2.2626108E6 / 1005.0
     388          tswst = tswst + qswst_remote * 2.2626108E6_wp / 1005.0_wp
    389389!
    390390!--        ...and convert it to a salinity flux at the sea surface (top)
     
    399399!--    (constants are the specific heat capacities for air and water)
    400400!--    now tswst is the ocean top heat flux
    401        tswst = tswst / rho(nzt,:,:) * 1005.0 / 4218.0
     401       tswst = tswst / rho(nzt,:,:) * 1005.0_wp / 4218.0_wp
    402402
    403403!
Note: See TracChangeset for help on using the changeset viewer.