Ignore:
Timestamp:
2019-01-14T19:21:49+01:00 (19 months ago)
Author:
clem
Message:

solve crash issue when using lupkes2015 for the drags (see ticket #2136)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ICE/icethd.F90

    r10425 r10511  
    152152            ! --- Sensible ocean-to-ice heat flux (mostly>0 but <0 if supercooling, W/m2) 
    153153            zfric_u            = MAX( SQRT( zfric(ji,jj) ), zfric_umin )  
    154             qsb_ice_bot(ji,jj) = rswitch * rau0 * rcp * zch  * zfric_u * ( ( sst_m(ji,jj) + rt0 ) - t_bo(ji,jj) ) ! W.m-2 
     154            qsb_ice_bot(ji,jj) = rswitch * rau0 * rcp * zch * zfric_u * ( ( sst_m(ji,jj) + rt0 ) - t_bo(ji,jj) ) ! W.m-2 
    155155 
    156156            qsb_ice_bot(ji,jj) = rswitch * MIN( qsb_ice_bot(ji,jj), - zqfr_neg * r1_rdtice / MAX( at_i(ji,jj), epsi10 ) ) 
Note: See TracChangeset for help on using the changeset viewer.