Changeset 10425 for NEMO/trunk/src/OCE/TRD/trdglo.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRD/trdglo.F90
r10068 r10425 249 249 ! --------------------------------- 250 250 IF( lk_mpp ) THEN 251 CALL mpp_sum( peke )252 CALL mpp_sum( umo , jptot_dyn )253 CALL mpp_sum( vmo , jptot_dyn )254 CALL mpp_sum( hke , jptot_dyn )251 CALL mpp_sum( 'trdglo', peke ) 252 CALL mpp_sum( 'trdglo', umo , jptot_dyn ) 253 CALL mpp_sum( 'trdglo', vmo , jptot_dyn ) 254 CALL mpp_sum( 'trdglo', hke , jptot_dyn ) 255 255 ENDIF 256 256 … … 392 392 ! ------------------------------- 393 393 IF( lk_mpp ) THEN 394 CALL mpp_sum( tmo, jptot_tra )395 CALL mpp_sum( smo, jptot_tra )396 CALL mpp_sum( t2 , jptot_tra )397 CALL mpp_sum( s2 , jptot_tra )394 CALL mpp_sum( 'trdglo', tmo, jptot_tra ) 395 CALL mpp_sum( 'trdglo', smo, jptot_tra ) 396 CALL mpp_sum( 'trdglo', t2 , jptot_tra ) 397 CALL mpp_sum( 'trdglo', s2 , jptot_tra ) 398 398 ENDIF 399 399 … … 526 526 tvolt = tvolt + SUM( e1e2t(:,:) * e3t_n(:,:,jk) * tmask(:,:,jk) * tmask_i(:,:) ) 527 527 END DO 528 IF( lk_mpp ) CALL mpp_sum(tvolt ) ! sum over the global domain528 CALL mpp_sum( 'trdglo', tvolt ) ! sum over the global domain 529 529 530 530 IF(lwp) WRITE(numout,*) ' total ocean volume at T-point tvolt = ',tvolt … … 546 546 END DO 547 547 END DO 548 IF( lk_mpp ) CALL mpp_sum(tvolu ) ! sums over the global domain549 IF( lk_mpp ) CALL mpp_sum(tvolv )548 CALL mpp_sum( 'trdglo', tvolu ) ! sums over the global domain 549 CALL mpp_sum( 'trdglo', tvolv ) 550 550 551 551 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.