Changeset 1239 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90
- Timestamp:
- 2008-12-31T10:35:35+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90
r1226 r1239 183 183 ! Ice model step ! 184 184 ! ---------------- ! 185 186 #if defined key_zdftke2 187 IF ( kt .NE. nitend+1 ) THEN 185 188 CALL lim_rst_opn_2 ( kt ) ! Open Ice restart file 189 ENDIF 190 #else 191 CALL lim_rst_opn_2 ( kt ) ! Open Ice restart file 192 #endif 186 193 IF( .NOT. lk_c1d ) THEN ! Ice dynamics & transport (not in 1D case) 187 194 CALL lim_dyn_2 ( kt ) ! Ice dynamics ( rheology/dynamics ) … … 197 204 CALL lim_thd_2 ( kt ) ! Ice thermodynamics 198 205 CALL lim_sbc_2 ( kt ) ! Ice/Ocean Mass & Heat fluxes 206 #if defined key_zdftke2 207 IF( kt .NE. nitend+1 ) THEN 208 IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp ) & 209 & CALL lim_dia_2 ( kt ) ! Ice Diagnostics 210 CALL lim_wri_2 ( kt ) ! Ice outputs 211 IF( lrst_ice ) CALL lim_rst_write_2( kt ) ! Ice restart file 212 ! 213 ENDIF 214 #else 199 215 IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp ) & 200 & CALL lim_dia_2 ( kt ) ! Ice Diagnostics 201 CALL lim_wri_2 ( kt ) ! Ice outputs 202 IF( lrst_ice ) CALL lim_rst_write_2( kt ) ! Ice restart file 216 & CALL lim_dia_2 ( kt ) ! Ice Diagnostics 217 CALL lim_wri_2 ( kt ) ! Ice outputs 218 IF( lrst_ice ) CALL lim_rst_write_2( kt ) ! Ice restart file 203 219 ! 220 #endif 204 221 ENDIF 205 222 !
Note: See TracChangeset
for help on using the changeset viewer.