Changeset 9397 for branches/2017/dev_CNRS_2017/NEMOGCM
- Timestamp:
- 2018-03-14T14:27:22+01:00 (6 years ago)
- Location:
- branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/iceitd.F90
r8967 r9397 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) 122 122 END DO 123 123 END DO … … 690 690 zalpha = 0.05_wp 691 691 zhmax = 3._wp * rn_himean 692 hi_max(0) = 0._wp 692 hi_max(0) = 0._wp 693 693 DO jl = 1, jpl 694 694 znum = jpl * ( zhmax+1 )**zalpha -
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/LIM_SRC_3/icethd_ent.F90
r8882 r9397 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.