Changeset 12865


Ignore:
Timestamp:
2020-05-04T19:15:11+02:00 (7 months ago)
Author:
mathiot
Message:

ticket #2413: add check on nstop in dom_ctl.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools_ticket2413/DOMAINcfg/src/domain.F90

    r12414 r12865  
    293293      ENDIF 
    294294      ! 
     295      ! check that all processes are still there... If some process have an error, 
     296      ! they will never enter in cfg_write 
     297      IF( lk_mpp )   CALL mpp_max( 'nemogcm',nstop ) 
     298      IF (nstop /= 0) THEN 
     299         WRITE(numout,*) '' 
     300         WRITE(numout,*) '========================================================' 
     301         WRITE(numout,*) 'E R R O R : ',nstop, ' error have been found' 
     302         WRITE(numout,*) '========================================================' 
     303         WRITE(numout,*) '' 
     304         IF ( lk_mpp ) THEN 
     305            CALL mppstop() 
     306         ELSE 
     307            STOP 123 
     308         END IF 
     309      END IF 
     310      ! 
    295311   END SUBROUTINE dom_ctl 
    296312 
Note: See TracChangeset for help on using the changeset viewer.