Changeset 1239 for trunk/NEMO/OPA_SRC/SBC
- Timestamp:
- 2008-12-31T10:35:35+01:00 (16 years ago)
- Location:
- trunk/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r1220 r1239 233 233 ! 234 234 ! ! Diagnostics and outputs 235 ! ! Ice Diagnostics 235 #if defined key_zdftke2 236 IF( kt .NE. nitend+1 ) THEN 237 IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp ) & 238 & CALL lim_dia 239 CALL lim_wri( 1 ) ! Ice outputs 240 IF( lrst_ice ) CALL lim_rst_write( kt ) ! Ice restart file 241 CALL lim_var_glo2eqv ! ??? 242 ! 243 IF( ln_nicep ) CALL lim_ctl ! alerts in case of model crash 244 ! 245 ENDIF 246 #else 236 247 IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp ) & 237 248 & CALL lim_dia … … 242 253 IF( ln_nicep ) CALL lim_ctl ! alerts in case of model crash 243 254 ! 255 #endif 244 256 ENDIF ! End sea-ice time step only 245 257 -
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.