New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3334 – NEMO

Changeset 3334


Ignore:
Timestamp:
2012-03-20T14:26:17+01:00 (12 years ago)
Author:
sga
Message:

NEMO 2012 development branch dev_r3322_NOCS09_SAS: add some lines from rst_opn in order to allow correct ice restart creation;

and a little bit of light dusting.

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  
    266266      ENDIF 
    267267 
     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 
    268276      IF( nn_timing == 1 )  CALL timing_stop('day') 
    269277      ! 
  • branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90

    r3333 r3334  
    4141   USE sbcfwb           ! surface boundary condition: freshwater budget 
    4242   USE closea           ! closed sea 
    43    USE bdy_par          ! for lk_bdy 
    44    USE bdyice_lim2      ! unstructured open boundary data  (bdy_ice_lim_2 routine) 
    4543 
    4644   USE prtctl           ! Print control                    (prt_ctl routine) 
     
    287285         !                                                       
    288286      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 condition 
    290287         !                                                      
    291288      CASE(  3 )   ;       CALL sbc_ice_lim  ( kt, nsbc )            ! LIM-3 ice model 
Note: See TracChangeset for help on using the changeset viewer.