Changeset 3334 for branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM
- Timestamp:
- 2012-03-20T14:26:17+01:00 (13 years ago)
- Location:
- branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/daymod.F90
r3331 r3334 266 266 ENDIF 267 267 268 ! since we no longer call rst_opn, need to define nitrst here, used by ice restart routine 269 IF( kt == nit000 ) nitrst = nitend 270 IF( MOD( kt - 1, nstock ) == 0 ) THEN 271 ! we use kt - 1 and not kt - nit000 to keep the same periodicity from the beginning of the experiment 272 nitrst = kt + nstock - 1 ! define the next value of nitrst for restart writing 273 IF( nitrst > nitend ) nitrst = nitend ! make sure we write a restart at the end of the run 274 ENDIF 275 268 276 IF( nn_timing == 1 ) CALL timing_stop('day') 269 277 ! -
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90
r3333 r3334 41 41 USE sbcfwb ! surface boundary condition: freshwater budget 42 42 USE closea ! closed sea 43 USE bdy_par ! for lk_bdy44 USE bdyice_lim2 ! unstructured open boundary data (bdy_ice_lim_2 routine)45 43 46 44 USE prtctl ! Print control (prt_ctl routine) … … 287 285 ! 288 286 CASE( 2 ) ; CALL sbc_ice_lim_2( kt, nsbc ) ! LIM-2 ice model 289 IF( lk_bdy ) CALL bdy_ice_lim_2( kt ) ! BDY boundary condition290 287 ! 291 288 CASE( 3 ) ; CALL sbc_ice_lim ( kt, nsbc ) ! LIM-3 ice model
Note: See TracChangeset
for help on using the changeset viewer.