Changeset 10425 for NEMO/trunk/src/OCE/nemogcm.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/nemogcm.F90
r10350 r10425 102 102 CHARACTER(lc) :: cform_aaa="( /, 'AAAAAAAA', / ) " ! flag for output listing 103 103 104 #if defined key_mpp_mpi 105 INCLUDE 'mpif.h' 106 #endif 107 104 108 !!---------------------------------------------------------------------- 105 109 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 144 148 ! check that all process are still there... If some process have an error, 145 149 ! 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 ) 147 151 148 152 IF(lwp) WRITE(numout,cform_aaa) ! Flag AAAAAAA … … 184 188 ! 185 189 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 186 195 CALL stp ( istp ) 187 196 istp = istp + 1 … … 225 234 #else 226 235 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 230 243 ! 231 244 END SUBROUTINE nemo_gcm … … 340 353 WRITE(numout,*) 341 354 DO ji = 1, SIZE(cltxt) 342 IF( TRIM(cltxt (ji)) /= '' ) WRITE(numout,*) cltxt(ji) ! control print of mynode355 IF( TRIM(cltxt (ji)) /= '' ) WRITE(numout,*) TRIM(cltxt(ji)) ! control print of mynode 343 356 END DO 344 357 WRITE(numout,*) 345 358 WRITE(numout,*) 346 359 DO ji = 1, SIZE(cltxt2) 347 IF( TRIM(cltxt2(ji)) /= '' ) WRITE(numout,*) cltxt2(ji) ! control print of domain size360 IF( TRIM(cltxt2(ji)) /= '' ) WRITE(numout,*) TRIM(cltxt2(ji)) ! control print of domain size 348 361 END DO 349 362 ! … … 351 364 ! 352 365 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 ! 353 369 ! ! Domain decomposition 354 370 CALL mpp_init ! MPP … … 543 559 ! 544 560 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' ) 546 563 ! 547 564 #if defined key_agrif … … 612 629 #endif 613 630 ! 614 IF( lk_mpp ) CALL mpp_sum(ierr )631 CALL mpp_sum( 'nemogcm', ierr ) 615 632 IF( ierr /= 0 ) CALL ctl_stop( 'STOP', 'nemo_alloc: unable to allocate standard ocean arrays' ) 616 633 !
Note: See TracChangeset
for help on using the changeset viewer.