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 8587 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3 – NEMO

Ignore:
Timestamp:
2017-10-04T09:46:35+02:00 (7 years ago)
Author:
clem
Message:

bug fixes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icevar.F90

    r8565 r8587  
    134134         END DO 
    135135         ! 
     136         !                           ! put rt0 where there is no ice 
     137         WHERE( at_i(:,:)<=epsi20 ) 
     138            tm_su(:,:) = rt0 
     139            tm_si(:,:) = rt0 
     140            tm_i (:,:) = rt0 
     141         END WHERE 
     142 
    136143         DEALLOCATE( z1_at_i , z1_vt_i ) 
    137144      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.