Ignore:
Timestamp:
Jun 6, 2014 1:05:08 PM (7 years ago)
Author:
fricke
Message:

Bugfixes concerning grid stretching for the ocean and calculation of the salinity flux in routine surface_coupler

File:
1 edited

Legend:

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

    r1354 r1418  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Bugfix: For caluclation of the salinity flux at the sea surface,
     23!          the given value for salinity must be in percent and not in psu
    2324!
    2425! Former revisions:
     
    400401!--       following Steinhorn (1991), JPO 21, pp. 1681-1683:
    401402!--       S'w' = -S * evaporation / ( rho_water * ( 1 - S ) )
    402           saswst = -1.0_wp * sa(nzt,:,:) * qswst_remote /  &
    403                     ( rho(nzt,:,:) * ( 1.0_wp - sa(nzt,:,:) ) )
     403          saswst = -1.0_wp * sa(nzt,:,:) * 0.001 * qswst_remote /  &
     404                    ( rho(nzt,:,:) * ( 1.0_wp - sa(nzt,:,:) * 0.001 ) )
    404405       ENDIF
    405406
Note: See TracChangeset for help on using the changeset viewer.