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 15481 – NEMO

Changeset 15481


Ignore:
Timestamp:
2021-11-08T20:51:07+01:00 (2 years ago)
Author:
dcarneir
Message:

second round of review for IAU SIC code with SI3

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_FOAM_IAU_SI3_SIC/src/OCE/ASM/asminc.F90

    r15476 r15481  
    10831083 
    10841084      INTEGER :: jj, ji, jk 
    1085       REAL(wp) ::   ztmelts   ! melting point 
     1085      REAL(wp) ::   ztmelts         ! melting point 
     1086      REAL(wp) ::   Sice_Fz=2.3_wp  ! Salinity of the ice = F(z) [multiyear ice] 
    10861087 
    10871088      REAL(wp), DIMENSION(jpij) ::   zh_newice   ! 1d version of hi_new 
    … …  
    11201121            END DO 
    11211122         CASE ( 3 )                    ! Sice = F(z) [multiyear ice] 
    1122             zs_newice(1:npti) =   2.3_wp 
     1123            zs_newice(1:npti) = Sice_Fz 
    11231124         END SELECT 
    11241125 
Note: See TracChangeset for help on using the changeset viewer.