Changeset 1481 for trunk/NEMO/OPA_SRC/SBC
- Timestamp:
- 2009-07-03T17:07:08+02:00 (15 years ago)
- Location:
- trunk/NEMO/OPA_SRC/SBC
- Files:
-
- 2 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 -
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.