Changeset 11


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

Location:
SCHWARZ_ORCA2LIM3/SOURCES/NEMO
Files:
3 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 
  • SCHWARZ_ORCA2LIM3/SOURCES/NEMO/restart.F90

    r4 r11  
    6060      !!---------------------------------------------------------------------- 
    6161      ! 
    62       IF( kt == nit000 .AND. kswr == 1 ) THEN   ! default definitions 
     62      IF( kt == nit000 .AND. kswr == 0 ) THEN   ! default definitions 
    6363         lrst_oce = .FALSE.    
    6464         IF( ln_rst_list ) THEN 
     
    7676         IF( nitrst > nitend )   nitrst = nitend   ! make sure we write a restart at the end of the run 
    7777      ENDIF 
     78 
    7879      ! to get better performances with NetCDF format: 
    7980      ! we open and define the ocean restart file one time step before writing the data (-> at nitrst - 1) 
  • SCHWARZ_ORCA2LIM3/SOURCES/NEMO/sbcmod.F90

    r6 r11  
    465465         CALL iom_rstput( kt, nitrst, numrow, 'utau_b' , utau ) 
    466466         CALL iom_rstput( kt, nitrst, numrow, 'vtau_b' , vtau ) 
    467  
     467         CALL iom_rstput( kt, nitrst, numrow, 'qns_b'  , qns  ) 
    468468         ! The 3D heat content due to qsr forcing is treated in traqsr 
    469469         ! CALL iom_rstput( kt, nitrst, numrow, 'qsr_b'  , qsr  ) 
Note: See TracChangeset for help on using the changeset viewer.