Ignore:
Timestamp:
06/27/19 14:15:12 (2 years ago)
Author:
snguyen
Message:

removed bug : not writing restart when doing several periods of computation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • SCHWARZ_ORCA2LIM3/SOURCES/NEMO/nemogcm.F90

    r6 r11  
    4242   !!---------------------------------------------------------------------- 
    4343   USE dom_oce, ONLY : rdt 
    44    USE in_out_manager, ONLY : kswr, ksout, mswr, kall, ntsinswr, nsloops, iswloop, lwp 
     44   USE in_out_manager, ONLY : kswr, ksout, mswr, kall, ntsinswr, nsloops, iswloop, lwp, nitrst 
    4545   USE schwarz         ! schwarz subroutines 
    4646   USE step_oce        ! module used in the ocean time stepping module 
     
    128128 
    129129      ntsinswr = 1 !! set to allow fldread in nemo_init before computation of schwarz indices 
     130      kswr = 0     !! set here to allow day_init to set nitrst properly 
    130131 
    131132      WRITE(numout,*) "ntsinswr = ",ntsinswr 
     
    151152         WRITE(numout,*) '   nsloops  = ',nsloops  
    152153         WRITE(numout,*) '   mswr     = ',mswr 
     154         WRITE(numout,*) '   nitrst   = ',nitrst 
    153155      ENDIF 
    154156 
Note: See TracChangeset for help on using the changeset viewer.