Ignore:
Timestamp:
2020-04-06T11:52:15+02:00 (8 months ago)
Author:
smasson
Message:

r12581_ticket2418: end cleaning, see #2418

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r12581_ticket2418/src/SAS/stpctl.F90

    r12684 r12685  
    2020   USE dom_oce         ! ocean space and time domain variables  
    2121   USE ice      , ONLY : vt_i, u_ice, tm_i 
     22   ! 
    2223   USE diawri          ! Standard run outputs       (dia_wri_state routine) 
    23    ! 
    2424   USE in_out_manager  ! I/O manager 
    2525   USE lbclnk          ! ocean lateral boundary conditions (or mpp link) 
    2626   USE lib_mpp         ! distributed memory computing 
    27  
     27   ! 
    2828   USE netcdf          ! NetCDF library 
    2929   IMPLICIT NONE 
     
    7373      ! 
    7474      ll_wrtstp  = ( MOD( kt-nit000, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) 
    75       ll_colruns = ll_wrtstp .AND. sn_cfctl%l_runstat 
    76       ll_wrtruns = ll_colruns .AND. lwm 
     75      ll_colruns = ll_wrtstp .AND. sn_cfctl%l_runstat .AND. jpnij > 1  
     76      ll_wrtruns = ( ll_colruns .OR. jpnij == 1 ) .AND. lwm 
    7777      ! 
    7878      IF( kt == nit000 ) THEN 
     
    172172         CALL dia_wri_state( Kmm, 'output.abort' )     ! create an output.abort file 
    173173         ! 
    174          IF( ll_colruns ) THEN   ! all processes are synchronized -> use lwp to do the print in opened ocean.output files 
     174         IF( ll_colruns .or. jpnij == 1 ) THEN   ! all processes synchronized -> use lwp to print in opened ocean.output files 
    175175            IF(lwp)   CALL ctl_stop( ctmp1, ' ', ctmp2, ctmp3, ctmp4, ctmp5, ' ', ctmp6 ) 
    176176         ELSE   ! only mpi subdomains with errors are here -> STOP now 
Note: See TracChangeset for help on using the changeset viewer.