- Timestamp:
- 2010-11-25T17:33:31+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r2370 r2435 47 47 USE limvar ! Ice variables switch 48 48 49 USE c1d ! 1D vertical configuration 49 50 USE lbclnk ! lateral boundary condition - MPP link 50 51 USE iom ! I/O manager library … … 192 193 IF( ln_nicep ) CALL lim_prt_state( jiindx, jjindx, 1, ' - Beginning the time step - ' ) ! control print 193 194 ! 194 #if ! defined key_c1d 195 IF( .NOT. lk_c1d ) THEN 195 196 ! Ice dynamics & transport (not in 1D case) 196 197 CALL lim_dyn( kt ) ! Ice dynamics ( rheology/dynamics ) … … 200 201 IF( ln_nicep ) CALL lim_prt_state( jiindx, jjindx,-1, ' - ice dyn & trp - ' ) ! control print 201 202 CALL lim_itd_me ! Mechanical redistribution ! (ridging/rafting) 202 #endif 203 ENDIF 203 204 ! ! Ice thermodynamics 204 205 CALL lim_var_glo2eqv ! equivalent variables
Note: See TracChangeset
for help on using the changeset viewer.