Changeset 10993 for NEMO/releases/release-4.0/src/ICE/icedyn.F90
- Timestamp:
- 2019-05-17T15:07:59+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/release-4.0/src/ICE/icedyn.F90
r10910 r10993 118 118 CALL ice_dyn_adv ( kt ) ! -- advection of ice 119 119 CALL Hpiling ! -- simple pile-up (replaces ridging/rafting) 120 CALL ice_var_zapsmall ! -- zap small areas 120 121 ! 121 122 CASE ( np_dynADV1D ) !== pure advection ==! (1D) … … 189 190 ! controls 190 191 IF( ln_icediachk ) CALL ice_cons_hsm(0, 'Hpiling', rdiag_v, rdiag_s, rdiag_t, rdiag_fv, rdiag_fs, rdiag_ft) ! conservation 191 !192 CALL ice_var_zapsmall !-- zap small areas193 192 ! 194 193 at_i(:,:) = SUM( a_i(:,:,:), dim=3 )
Note: See TracChangeset
for help on using the changeset viewer.