Changeset 10675


Ignore:
Timestamp:
2019-02-13T14:30:01+01:00 (18 months ago)
Author:
timgraham
Message:

Added nn_abort switch in namrun,
Removed call to ctl_stop from dia_wri_state into step
Put if statement around call to dia_wri_state in step

Location:
branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/CONFIG/SHARED/namelist_ref

    r10149 r10675  
    5050   ln_clobber  = .false.   !  clobber (overwrite) an existing file 
    5151   nn_chunksz  =       0   !  chunksize (bytes) for NetCDF file (works only with iom_nf90 routines) 
     52   nn_abort    =       1   !  output the final state (1) or not (0) in case of model error 
    5253/ 
    5354! 
  • branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r10020 r10675  
    11251125#endif 
    11261126 
    1127       IF (cdfile_name == "output.abort") THEN 
    1128          CALL ctl_stop('MPPSTOP', 'NEMO abort from dia_wri_state') 
    1129       END IF 
    11301127        
    11311128!     IF( nn_timing == 1 )   CALL timing_stop('dia_wri_state') ! not sure this works for routines not called in first timestep 
  • branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r6491 r10675  
    137137      NAMELIST/namrun/ cn_ocerst_indir, cn_ocerst_outdir, nn_stocklist, ln_rst_list,               & 
    138138         &             nn_no   , cn_exp    , cn_ocerst_in, cn_ocerst_out, ln_rstart , ln_rstdate, nn_rstctl,   & 
    139          &             nn_it000, nn_itend  , nn_date0    , nn_leapy     , nn_istate , nn_stock ,   & 
     139         &             nn_it000, nn_itend  , nn_date0    , nn_leapy     , nn_istate , nn_abort , nn_stock ,   & 
    140140         &             nn_write, ln_dimgnnn, ln_mskland  , ln_cfmeta    , ln_clobber, nn_chunksz, nn_euler 
    141141      NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin,   & 
     
    182182         WRITE(numout,*) '      leap year calendar (0/1)        nn_leapy   = ', nn_leapy 
    183183         WRITE(numout,*) '      initial state output            nn_istate  = ', nn_istate 
     184         WRITE(numout,*) '      abort state output              nn_abort   = ', nn_abort 
    184185         IF( ln_rst_list ) THEN 
    185186            WRITE(numout,*) '      list of restart dump times      nn_stocklist   =', nn_stocklist 
  • branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r6491 r10675  
    4040   INTEGER       ::   nn_leapy         !: Leap year calendar flag (0/1 or 30) 
    4141   INTEGER       ::   nn_istate        !: initial state output flag (0/1) 
     42   INTEGER       ::   nn_abort         !: Output final state in case of error flag (0/1) 
    4243   INTEGER       ::   nn_write         !: model standard output frequency 
    4344   INTEGER       ::   nn_stock         !: restart file frequency 
  • branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/step.F90

    r10149 r10675  
    376376      IF( indic < 0        )   THEN 
    377377                               CALL ctl_stop( 'step: indic < 0' ) 
    378                                CALL dia_wri_state( 'output.abort', kstp ) 
     378                               IF( nn_abort ) CALL dia_wri_state( 'output.abort', kstp ) 
     379                               CALL ctl_stop('MPPSTOP', 'NEMO abort from stp') 
    379380      ENDIF 
    380381      IF( kstp == nit000   )   THEN 
Note: See TracChangeset for help on using the changeset viewer.