Changeset 12870


Ignore:
Timestamp:
2020-05-05T17:48:36+02:00 (7 months ago)
Author:
mathiot
Message:

ticket #2413: merge tools_ticket2413 into tools

File:
1 edited

Legend:

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

    r12414 r12870  
    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.