Changeset 862
- Timestamp:
- 2008-03-14T12:23:26+01:00 (16 years ago)
- Location:
- trunk/NEMO/LIM_SRC_3
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/iceini.F90
r844 r862 240 240 END DO 241 241 242 DO jl = 1, jpl 243 hi_mean(jl) = ( hi_max(jl) + hi_max(jl-1) ) / 2.0 244 END DO 245 246 ! Tricky trick 242 !- Fill in the hi_max_typ vector, useful in other circumstances 243 ! Tricky trick 247 244 ! hi_max_typ is actually not used in the code and will be removed in a 248 ! next flyspray 249 ! at this time, the tricky trick will also be removed 245 ! next flyspray at this time, the tricky trick will also be removed 250 246 ! Martin, march 08 251 hi_max(jpl) = 999.99252 253 !- Fill in the hi_max_typ vector, useful in other circumstances254 247 DO jl = ice_cat_bounds(1,1), ice_cat_bounds(1,2) 255 248 hi_max_typ(jl,1) = hi_max(jl) … … 265 258 END DO 266 259 260 DO jl = 1, jpl 261 hi_mean(jl) = ( hi_max(jl) + hi_max(jl-1) ) / 2.0 262 END DO 263 267 264 tn_ice(:,:,:) = t_su(:,:,:) 268 265 -
trunk/NEMO/LIM_SRC_3/limitd_me.F90
r834 r862 216 216 ! is thinner than hi_max(ncat). 217 217 218 hi_max(jpl) = 999.99 219 218 220 Cp = 0.5* grav * (rau0-rhoic)*rhoic/rau0 ! proport const for PE 219 221 CALL lim_itd_me_ridgeprep ! prepare ridging -
trunk/NEMO/LIM_SRC_3/limitd_th.F90
r844 r862 325 325 !----------------------------------------------------------------------------------------------- 326 326 !- 4.1 Compute category boundaries 327 ! Tricky trick see iceini.F90327 ! Tricky trick see limitd_me.F90 328 328 ! will be soon removed, CT 329 329 ! hi_max(kubnd) = 999.99
Note: See TracChangeset
for help on using the changeset viewer.