- Timestamp:
- 2018-03-28T18:42:49+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icevar.F90
r9433 r9448 464 464 ! Zap ice energy and use ocean heat to melt ice 465 465 !----------------------------------------------------------------- 466 WHERE( a_i(:,:,jl) > epsi 20 ) ; h_i(:,:,jl) = v_i(:,:,jl) / a_i(:,:,jl)466 WHERE( a_i(:,:,jl) > epsi10 ) ; h_i(:,:,jl) = v_i(:,:,jl) / a_i(:,:,jl) 467 467 ELSEWHERE ; h_i(:,:,jl) = 0._wp 468 468 END WHERE … … 504 504 ! zap ice and snow volume, add water and salt to ocean 505 505 !----------------------------------------------------------------- 506 ato_i(ji,jj) = a_i (ji,jj,jl) * ( 1._wp - zswitch(ji,jj) ) + ato_i(ji,jj)507 506 a_i (ji,jj,jl) = a_i (ji,jj,jl) * zswitch(ji,jj) 508 507 v_i (ji,jj,jl) = v_i (ji,jj,jl) * zswitch(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.