Changeset 11438


Ignore:
Timestamp:
2019-08-15T11:35:34+02:00 (14 months ago)
Author:
dancopsey
Message:

Allow the user to turn off the creation of abort files.
Merge in changes from dev_r5518_GO6_package_abort_switch revison 10675.

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

Legend:

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

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

    r9830 r11438  
    11231123#endif 
    11241124 
    1125       IF (cdfile_name == "output.abort") THEN 
    1126          CALL ctl_stop('MPPSTOP', 'NEMO abort from dia_wri_state') 
    1127       END IF 
    11281125        
    11291126!     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_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r10005 r11438  
    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_time0,      nn_leapy     , nn_istate , nn_stock ,   & 
     139         &             nn_it000, nn_itend  , nn_date0    , nn_time0,      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,   & 
     
    183183         WRITE(numout,*) '      leap year calendar (0/1)        nn_leapy   = ', nn_leapy 
    184184         WRITE(numout,*) '      initial state output            nn_istate  = ', nn_istate 
     185         WRITE(numout,*) '      abort state output              nn_abort   = ', nn_abort 
    185186         IF( ln_rst_list ) THEN 
    186187            WRITE(numout,*) '      list of restart dump times      nn_stocklist   =', nn_stocklist 
  • branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r10005 r11438  
    4141   INTEGER       ::   nn_leapy         !: Leap year calendar flag (0/1 or 30) 
    4242   INTEGER       ::   nn_istate        !: initial state output flag (0/1) 
     43   INTEGER       ::   nn_abort         !: Output final state in case of error flag (0/1) 
    4344   INTEGER       ::   nn_write         !: model standard output frequency 
    4445   INTEGER       ::   nn_stock         !: restart file frequency 
  • branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/step.F90

    r8400 r11438  
    374374      IF( indic < 0        )   THEN 
    375375                               CALL ctl_stop( 'step: indic < 0' ) 
    376                                CALL dia_wri_state( 'output.abort', kstp ) 
     376                               IF( nn_abort ) CALL dia_wri_state( 'output.abort', kstp ) 
     377                               CALL ctl_stop('MPPSTOP', 'NEMO abort from stp') 
    377378      ENDIF 
    378379      IF( kstp == nit000   )   THEN 
Note: See TracChangeset for help on using the changeset viewer.