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 9119 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icevar.F90 – NEMO

Ignore:
Timestamp:
2017-12-18T17:33:07+01:00 (6 years ago)
Author:
nicolasmartin
Message:

Fix longer lines so should be harmless (passed SETTE compilations)

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r9118 r9119  
    236236      DO jk = 1, nlay_s 
    237237         WHERE( v_s(:,:,:) > epsi20 )        !--- icy area 
    238             t_s(:,:,jk,:) = MAX( -100._wp , MIN( r1_cpic * ( -r1_rhosn * (e_s(:,:,jk,:)/v_s(:,:,:)*zlay_s) + lfus ) , 0._wp ) ) + rt0 
     238            t_s(:,:,jk,:) = MAX( -100._wp                                                                          ,   & 
     239                 &               MIN( r1_cpic * ( -r1_rhosn * ( e_s(:,:,jk,:) / v_s(:,:,:) * zlay_s ) + lfus ) ,       & 
     240                 &                    0._wp                                                                      )   ) & 
     241                 &        + rt0 
    239242         ELSEWHERE                           !--- no ice 
    240243            t_s(:,:,jk,:) = rt0 
Note: See TracChangeset for help on using the changeset viewer.