Changeset 12685 for NEMO/branches/2020/r12581_ticket2418/src/SAS/stpctl.F90

Timestamp:

2020-04-06T11:52:15+02:00 (4 years ago)

Author:

smasson

Message:

r12581_ticket2418: end cleaning, see #2418

File:

• NEMO/branches/2020/r12581_ticket2418/src/SAS/stpctl.F90 (modified) (3 diffs)

NEMO/branches/2020/r12581_ticket2418/src/SAS/stpctl.F90

@@ -20 +20 @@
    USE dom_oce         ! ocean space and time domain variables 
    USE ice      , ONLY : vt_i, u_ice, tm_i
+   !
    USE diawri          ! Standard run outputs       (dia_wri_state routine)
-   !
    USE in_out_manager  ! I/O manager
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE lib_mpp         ! distributed memory computing
-
+   !
    USE netcdf          ! NetCDF library
    IMPLICIT NONE
@@ -73 +73 @@
       !
       ll_wrtstp  = ( MOD( kt-nit000, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend )
-      ll_colruns = ll_wrtstp .AND. sn_cfctl%l_runstat
-      ll_wrtruns = ll_colruns .AND. lwm
+      ll_colruns = ll_wrtstp .AND. sn_cfctl%l_runstat .AND. jpnij > 1 
+      ll_wrtruns = ( ll_colruns .OR. jpnij == 1 ) .AND. lwm
       !
       IF( kt == nit000 ) THEN
@@ -172 +172 @@
          CALL dia_wri_state( Kmm, 'output.abort' )     ! create an output.abort file
          !
-         IF( ll_colruns ) THEN   ! all processes are synchronized -> use lwp to do the print in opened ocean.output files
+         IF( ll_colruns .or. jpnij == 1 ) THEN   ! all processes synchronized -> use lwp to print in opened ocean.output files
             IF(lwp)   CALL ctl_stop( ctmp1, ' ', ctmp2, ctmp3, ctmp4, ctmp5, ' ', ctmp6 )
          ELSE   ! only mpi subdomains with errors are here -> STOP now