Changeset 12933 for NEMO/trunk/src/OCE/IOM/in_out_manager.F90

Timestamp:

2020-05-15T10:06:25+02:00 (3 years ago)

Author:

smasson

Message:

trunk: merge back r12581_ticket2418 branch into the trunk, see #2418

Location:

NEMO/trunk

Files:

• . (modified) (1 prop)
• src/OCE/IOM/in_out_manager.F90 (modified) (2 diffs)

NEMO/trunk

@@ -8 +8 @@
 
 # SETTE
-^/utils/CI/sette@12798        sette
+^/utils/CI/sette@12931        sette

@@ -8 +8 @@
 
 # SETTE
-^/utils/CI/sette@12798        sette
+^/utils/CI/sette@12931        sette

NEMO/trunk/src/OCE/IOM/in_out_manager.F90

@@ -100 +100 @@
    !!----------------------------------------------------------------------
    TYPE :: sn_ctl                !: structure for control over output selection
-      LOGICAL :: l_glochk  = .FALSE.  !: range sanity checks are local (F) or global (T)
-                                      !  Use global setting for debugging only;
-                                      !  local breaches will still be reported
-                                      !  and stop the code in most cases.
-      LOGICAL :: l_allon   = .FALSE.  !: overall control; activate all following output options
-      LOGICAL :: l_config  = .FALSE.  !: activate/deactivate finer control
-                                      !  Note if l_config is True then sn_cfctl%l_allon is ignored.
-                                      !  Otherwise setting sn_cfctl%l_allon T/F is equivalent to 
-                                      !  setting all the following logicals in this structure T/F
-                                      !  and disabling subsetting of processors
       LOGICAL :: l_runstat = .FALSE.  !: Produce/do not produce run.stat file (T/F)
       LOGICAL :: l_trcstat = .FALSE.  !: Produce/do not produce tracer.stat file (T/F)
@@ -169 +159 @@
    INTEGER       ::   no_print = 0          !: optional argument of fld_fill (if present, suppress some control print)
    INTEGER       ::   nstop = 0             !: error flag (=number of reason for a premature stop run)
+!$AGRIF_DO_NOT_TREAT
+   INTEGER       ::   ngrdstop = -1         !: grid number having nstop > 1
+!$AGRIF_END_DO_NOT_TREAT
    INTEGER       ::   nwarn = 0             !: warning flag (=number of warning found during the run)
    CHARACTER(lc) ::   ctmp1, ctmp2, ctmp3   !: temporary characters 1 to 3

@@ -8 +8 @@
 
 # SETTE
-^/utils/CI/sette@12798        sette
+^/utils/CI/sette@12931        sette