New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8961 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2017-12-08T16:10:55+01:00 (6 years ago)
Author:
clem
Message:

in case of SAS and slab ocean, put sst to freezing temperature

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

    r8882 r8961  
    114114         ENDIF 
    115115      ELSE 
    116          sst_m(:,:) = 0._wp 
    117          sss_m(:,:) = 35._wp     ! =35. to obtain a physical value for the freezing point 
     116         sss_m(:,:) = 35._wp                             ! =35. to obtain a physical value for the freezing point 
     117         CALL eos_fzp( sss_m(:,:), sst_m(:,:) )          ! sst_m is set at the freezing point 
    118118         ssu_m(:,:) = 0._wp 
    119119         ssv_m(:,:) = 0._wp 
Note: See TracChangeset for help on using the changeset viewer.