Changeset 10675 for branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2019-02-13T14:30:01+01:00 (5 years 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

File:

• branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -137 +137 @@
       NAMELIST/namrun/ cn_ocerst_indir, cn_ocerst_outdir, nn_stocklist, ln_rst_list,               &
          &             nn_no   , cn_exp    , cn_ocerst_in, cn_ocerst_out, ln_rstart , ln_rstdate, nn_rstctl,   &
-         &             nn_it000, nn_itend  , nn_date0    , nn_leapy     , nn_istate , nn_stock ,   &
+         &             nn_it000, nn_itend  , nn_date0    , nn_leapy     , nn_istate , nn_abort , nn_stock ,   &
          &             nn_write, ln_dimgnnn, ln_mskland  , ln_cfmeta    , ln_clobber, nn_chunksz, nn_euler
       NAMELIST/namdom/ nn_bathy, rn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh, rn_hmin,   &
@@ -182 +182 @@
          WRITE(numout,*) '      leap year calendar (0/1)        nn_leapy   = ', nn_leapy
          WRITE(numout,*) '      initial state output            nn_istate  = ', nn_istate
+         WRITE(numout,*) '      abort state output              nn_abort   = ', nn_abort
          IF( ln_rst_list ) THEN
             WRITE(numout,*) '      list of restart dump times      nn_stocklist   =', nn_stocklist