Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (2 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/nemogcm.F90

    r10350 r10425  
    102102   CHARACTER(lc) ::   cform_aaa="( /, 'AAAAAAAA', / ) "     ! flag for output listing 
    103103 
     104#if defined key_mpp_mpi 
     105   INCLUDE 'mpif.h' 
     106#endif 
     107 
    104108   !!---------------------------------------------------------------------- 
    105109   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
     
    144148      ! check that all process are still there... If some process have an error, 
    145149      ! they will never enter in step and other processes will wait until the end of the cpu time! 
    146       IF( lk_mpp )   CALL mpp_max( nstop ) 
     150      CALL mpp_max( 'nemogcm', nstop ) 
    147151 
    148152      IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
     
    184188         ! 
    185189         DO WHILE( istp <= nitend .AND. nstop == 0 ) 
     190#if defined key_mpp_mpi 
     191            ncom_stp = istp 
     192            IF ( istp == ( nit000 + 1 ) ) elapsed_time = MPI_Wtime() 
     193            IF ( istp ==         nitend ) elapsed_time = MPI_Wtime() - elapsed_time 
     194#endif 
    186195            CALL stp        ( istp )  
    187196            istp = istp + 1 
     
    225234#else 
    226235      IF    ( lk_oasis ) THEN   ;   CALL cpl_finalize   ! end coupling and mpp communications with OASIS 
    227       ELSEIF( lk_mpp   ) THEN   ;   CALL mppstop        ! end mpp communications 
    228       ENDIF 
    229 #endif 
     236      ELSEIF( lk_mpp   ) THEN   ;   CALL mppstop( ldfinal = .TRUE. )   ! end mpp communications 
     237      ENDIF 
     238#endif 
     239      ! 
     240      IF( nstop == 0 ) THEN   ;   STOP 0 
     241      ELSE                    ;   STOP 999 
     242      ENDIF 
    230243      ! 
    231244   END SUBROUTINE nemo_gcm 
     
    340353         WRITE(numout,*) 
    341354         DO ji = 1, SIZE(cltxt) 
    342             IF( TRIM(cltxt (ji)) /= '' )   WRITE(numout,*) cltxt(ji)    ! control print of mynode 
     355            IF( TRIM(cltxt (ji)) /= '' )   WRITE(numout,*) TRIM(cltxt(ji))    ! control print of mynode 
    343356         END DO 
    344357         WRITE(numout,*) 
    345358         WRITE(numout,*) 
    346359         DO ji = 1, SIZE(cltxt2) 
    347             IF( TRIM(cltxt2(ji)) /= '' )   WRITE(numout,*) cltxt2(ji)   ! control print of domain size 
     360            IF( TRIM(cltxt2(ji)) /= '' )   WRITE(numout,*) TRIM(cltxt2(ji))   ! control print of domain size 
    348361         END DO 
    349362         ! 
     
    351364         ! 
    352365      ENDIF 
     366      ! open /dev/null file to be able to supress output write easily 
     367      CALL ctl_opn( numnul, '/dev/null', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
     368      ! 
    353369      !                                      ! Domain decomposition 
    354370      CALL mpp_init                          ! MPP 
     
    543559      ! 
    544560      IF( 1._wp /= SIGN(1._wp,-0._wp)  )   CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows f2003 standard.',  & 
    545          &                                                'Compile with key_nosignedzero enabled' ) 
     561         &                                                'Compile with key_nosignedzero enabled:',   & 
     562         &                                                '--> add -Dkey_nosignedzero to the definition of %CPP in your arch file' ) 
    546563      ! 
    547564#if defined key_agrif 
     
    612629#endif  
    613630      ! 
    614       IF( lk_mpp    )   CALL mpp_sum( ierr ) 
     631      CALL mpp_sum( 'nemogcm', ierr ) 
    615632      IF( ierr /= 0 )   CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 
    616633      ! 
Note: See TracChangeset for help on using the changeset viewer.