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 8882 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90 – NEMO

Ignore:
Timestamp:
2017-12-01T18:44:09+01:00 (6 years ago)
Author:
flavoni
Message:

dev_CNRS_2017 branch: merged dev_r7881_ENHANCE09_RK3 with trunk r8864

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

    r7761 r8882  
    115115      ELSE 
    116116         sst_m(:,:) = 0._wp 
    117          sss_m(:,:) = 0._wp 
     117         sss_m(:,:) = 35._wp     ! =35. to obtain a physical value for the freezing point 
    118118         ssu_m(:,:) = 0._wp 
    119119         ssv_m(:,:) = 0._wp 
     
    313313   ENDIF 
    314314  
    315       CALL sbc_ssm( nit000 )   ! need to define ss?_m arrays used in limistate 
     315      CALL sbc_ssm( nit000 )   ! need to define ss?_m arrays used in iceistate 
    316316      l_initdone = .TRUE. 
    317317      ! 
Note: See TracChangeset for help on using the changeset viewer.