Changeset 1481 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.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_2.F90
r1470 r1481 171 171 ! ---------------- ! 172 172 173 #if defined key_zdftke2174 IF ( kt .NE. nitend+1 ) THEN175 173 CALL lim_rst_opn_2 ( kt ) ! Open Ice restart file 176 ENDIF177 #else178 CALL lim_rst_opn_2 ( kt ) ! Open Ice restart file179 #endif180 174 IF( .NOT. lk_c1d ) THEN ! Ice dynamics & transport (not in 1D case) 181 175 CALL lim_dyn_2 ( kt ) ! Ice dynamics ( rheology/dynamics ) … … 192 186 CALL lim_thd_2 ( kt ) ! Ice thermodynamics 193 187 CALL lim_sbc_2 ( kt ) ! Ice/Ocean Mass & Heat fluxes 194 #if defined key_zdftke2 195 IF( kt .NE. nitend+1 ) THEN 196 IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp ) & 197 & CALL lim_dia_2 ( kt ) ! Ice Diagnostics 198 CALL lim_wri_2 ( kt ) ! Ice outputs 199 IF( lrst_ice ) CALL lim_rst_write_2( kt ) ! Ice restart file 200 ! 201 ENDIF 202 #else 188 203 189 IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp ) & 204 190 & CALL lim_dia_2 ( kt ) ! Ice Diagnostics … … 206 192 IF( lrst_ice ) CALL lim_rst_write_2( kt ) ! Ice restart file 207 193 ! 208 #endif209 194 ENDIF 210 195 !
Note: See TracChangeset
for help on using the changeset viewer.