- Timestamp:
- 2019-06-06T16:30:49+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_old_tidal_mixing/src/ICE/icecor.F90
r10888 r11084 66 66 WRITE(numout,*) '~~~~~~~' 67 67 ENDIF 68 !69 68 ! !----------------------------------------------------- 70 ! ! ice thickness must exceed himin (for ice diff)!69 ! ! ice thickness must exceed himin (for temp. diff.) ! 71 70 ! !----------------------------------------------------- 72 71 WHERE( a_i(:,:,:) >= epsi20 ) ; h_i(:,:,:) = v_i(:,:,:) / a_i(:,:,:) … … 97 96 END DO 98 97 ENDIF 99 100 98 ! !----------------------------------------------------- 101 99 ! ! Rebin categories with thickness out of bounds !
Note: See TracChangeset
for help on using the changeset viewer.