Changeset 12865 for utils/tools_ticket2413/DOMAINcfg/src/domain.F90

Timestamp:

2020-05-04T19:15:11+02:00 (4 years ago)

Author:

mathiot

Message:

ticket #2413: add check on nstop in dom_ctl.

File:

• utils/tools_ticket2413/DOMAINcfg/src/domain.F90 (modified) (1 diff)

utils/tools_ticket2413/DOMAINcfg/src/domain.F90

@@ -293 +293 @@
       ENDIF
       !
+      ! check that all processes are still there... If some process have an error,
+      ! they will never enter in cfg_write
+      IF( lk_mpp )   CALL mpp_max( 'nemogcm',nstop )
+      IF (nstop /= 0) THEN
+         WRITE(numout,*) ''
+         WRITE(numout,*) '========================================================'
+         WRITE(numout,*) 'E R R O R : ',nstop, ' error have been found'
+         WRITE(numout,*) '========================================================'
+         WRITE(numout,*) ''
+         IF ( lk_mpp ) THEN
+            CALL mppstop()
+         ELSE
+            STOP 123
+         END IF
+      END IF
+      !
    END SUBROUTINE dom_ctl