Ignore:
Timestamp:
Aug 28, 2007 3:26:47 PM (14 years ago)
Author:
letzel
Message:
  • Bugfix in surface_coupler
  • mrun: completely remove workaround on lcfimm to propagate environment

variables out to the nodes in coupled mode

File:
1 edited

Legend:

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

    r108 r109  
    144144          CALL local_flush( 9 )
    145145
    146           tswst = tswst + qswst_remote * 2.2626108e6
    147           !latent heat of vaporization in m2/s2, or 540 cal/g, or 40.65 kJ/mol
     146          !here tswst is still the sum of atmospheric bottom heat fluxes
     147          tswst = tswst + qswst_remote * 2.2626108e6 / 1005.0
     148          !*latent heat of vaporization in m2/s2, or 540 cal/g, or 40.65 kJ/mol
     149          !/(rho_atm(=1.0)*c_p)
    148150!
    149151!--    ...and convert it to a salinity flux at the sea surface (top)
     
    157159!--    Adjust the kinematic heat flux with respect to ocean density
    158160!--    (constants are the specific heat capacities for air and water)
     161       !now tswst is the ocean top heat flux
    159162       tswst = tswst / rho(nzt,:,:) * 1005.0 / 4218.0
    160163
Note: See TracChangeset for help on using the changeset viewer.