- Timestamp:
- 2017-09-08T19:53:20+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90
r8515 r8516 37 37 USE icerhg ! sea-ice: rheology 38 38 USE iceadv ! sea-ice: advection 39 USE icedyn ! sea-ice: dynamics 39 40 USE icethd ! sea-ice: thermodynamics 40 41 USE icerdgrft ! sea-ice: ridging/rafting … … 144 145 CALL ice_rst_opn( kt ) ! Open Ice restart file (if necessary) 145 146 ! 146 SELECT CASE( nice_dyn ) 147 CASE ( np_dynFULL ) !== all dynamical processes ==! 148 CALL ice_rhg ( kt ) ! -- rheology 149 CALL ice_adv ( kt ) ! -- advection of ice 150 CALL ice_rdgrft( kt ) ! -- ridging/rafting 151 CALL ice_cor ( kt , 1 ) ! -- Corrections 152 CASE ( np_dyn ) !== pure dynamics only ==! (no ridging/rafting) (nono cat. case 2) 153 CALL ice_rhg ( kt ) ! -- rheology 154 CALL ice_adv ( kt ) ! -- advection of ice 155 CALL ice_cor ( kt , 1 ) ! -- Corrections 156 CASE ( np_dynPURE ) !== pure dynamics only ==! (nn_icedyn= 0 or 1 ) 157 CALL ice_rhg ( kt ) ! -- rheology 158 CALL ice_adv ( kt ) ! -- advection of ice 159 END SELECT 147 IF( ln_icedyn .AND. .NOT.lk_c1d ) CALL ice_dyn( kt ) ! -- Ice dynamics 160 148 ! 161 149 ! !== lateral boundary conditions ==! 162 150 #if defined key_agrif 163 IF( .NOT. Agrif_Root() ) CALL agrif_interp_lim3('T') ! -- AGRIF151 IF( .NOT. Agrif_Root() ) CALL agrif_interp_lim3('T') ! -- AGRIF 164 152 #endif 165 IF( ln_icethd .AND. ln_bdy ) CALL bdy_ice( kt ) ! -- bdy ice thermo153 IF( ln_icethd .AND. ln_bdy ) CALL bdy_ice( kt ) ! -- bdy ice thermo 166 154 ! 167 155 ! … … 186 174 ! qprec_ice, qevap_ice 187 175 !------------------------------------------------------! 188 CALL ice_forcing_flx( kt, ksbc )176 CALL ice_forcing_flx( kt, ksbc ) 189 177 190 178 !----------------------------! … … 269 257 ! 270 258 CALL ice_itd_init ! ice thickness distribution initialization 259 ! 260 CALL ice_dyn_init ! set ice dynamics parameters 271 261 ! 272 262 CALL ice_rdgrft_init ! set ice ridging/rafting parameters
Note: See TracChangeset
for help on using the changeset viewer.