Changeset 9398
- Timestamp:
- 2018-03-14T14:33:12+01:00 (7 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/iceitd.F90
r9169 r9398 119 119 ! Compute thickness change in each ice category 120 120 DO ji = 1, npti 121 zdhice(ji,jl) = h_i_2d(ji,jl) - h_ib_2d(ji,jl)121 IF( a_i_2d(ji,jl) > epsi10 ) zdhice(ji,jl) = h_i_2d(ji,jl) - h_ib_2d(ji,jl) ! clem: if statement is necessary for repro 122 122 END DO 123 123 END DO -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icethd_ent.F90
r9019 r9398 103 103 END DO 104 104 105 zeh_cum1(1:npti,0 ) = 0._wp105 zeh_cum1(1:npti,0:nlay_i) = 0._wp 106 106 ! new cumulative q*h => linear interpolation 107 107 DO jk0 = 1, nlay_i+1
Note: See TracChangeset
for help on using the changeset viewer.