Changeset 1481 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90
- Timestamp:
- 2009-07-03T17:07:08+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r1469 r1481 232 232 ! 233 233 ! ! Diagnostics and outputs 234 #if defined key_zdftke2235 IF( kt .NE. nitend+1 ) THEN236 IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp ) &237 & CALL lim_dia238 CALL lim_wri( 1 ) ! Ice outputs239 IF( lrst_ice ) CALL lim_rst_write( kt ) ! Ice restart file240 CALL lim_var_glo2eqv ! ???241 !242 IF( ln_nicep ) CALL lim_ctl ! alerts in case of model crash243 !244 ENDIF245 #else246 234 IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp ) & 247 235 & CALL lim_dia … … 252 240 IF( ln_nicep ) CALL lim_ctl ! alerts in case of model crash 253 241 ! 254 #endif255 242 ENDIF ! End sea-ice time step only 256 243
Note: See TracChangeset
for help on using the changeset viewer.