- Timestamp:
- 2018-11-12T16:20:57+01:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests
- Files:
-
- 7 edited
-
BENCH/MY_SRC/zdfiwm.F90 (modified) (2 diffs)
-
BENCH/cpp_BENCH.fcm (modified) (1 diff)
-
CANAL/MY_SRC/diawri.F90 (modified) (2 diffs)
-
CANAL/MY_SRC/domvvl.F90 (modified) (7 diffs)
-
CANAL/MY_SRC/usrdef_zgr.F90 (modified) (1 diff)
-
VORTEX/MY_SRC/domvvl.F90 (modified) (7 diffs)
-
WAD/MY_SRC/bdyini.F90 (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/zdfiwm.F90
r10166 r10297 64 64 & hbot_iwm(jpi,jpj), hcri_iwm(jpi,jpj) , STAT=zdf_iwm_alloc ) 65 65 ! 66 IF( lk_mpp ) CALL mpp_sum ( zdf_iwm_alloc )66 IF( lk_mpp ) CALL mpp_sum ( 'zdfiwm', zdf_iwm_alloc ) 67 67 IF( zdf_iwm_alloc /= 0 ) CALL ctl_warn('zdf_iwm_alloc: failed to allocate arrays') 68 68 END FUNCTION zdf_iwm_alloc … … 305 305 END DO 306 306 END DO 307 IF( lk_mpp ) CALL mpp_sum( zztmp )307 IF( lk_mpp ) CALL mpp_sum( 'zdfiwm', zztmp ) 308 308 zztmp = rau0 * zztmp ! Global integral of rauo * Kz * N^2 = power contributing to mixing 309 309 ! -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/cpp_BENCH.fcm
r10179 r10297 1 bld::tool::fppkeys key_mpp_mpi key_si3 1 bld::tool::fppkeys key_mpp_mpi key_si3 key_top -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/diawri.F90
r10170 r10297 516 516 ! 517 517 dia_wri_alloc = MAXVAL(ierr) 518 IF( lk_mpp ) CALL mpp_sum( dia_wri_alloc )518 IF( lk_mpp ) CALL mpp_sum( 'diawri', dia_wri_alloc ) 519 519 ! 520 520 END FUNCTION dia_wri_alloc … … 625 625 !! that routine is called from nemogcm, so do it here immediately before its needed 626 626 ALLOCATE( ndex_bT(jpi*jpj*nclasses), STAT=ierror ) 627 IF( lk_mpp ) CALL mpp_sum( ierror )627 IF( lk_mpp ) CALL mpp_sum( 'diawri', ierror ) 628 628 IF( ierror /= 0 ) THEN 629 629 CALL ctl_stop('dia_wri: failed to allocate iceberg diagnostic array') -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/domvvl.F90
r10170 r10297 79 79 & dtilde_e3t_a(jpi,jpj,jpk) , un_td (jpi,jpj,jpk) , vn_td (jpi,jpj,jpk) , & 80 80 & STAT = dom_vvl_alloc ) 81 IF( lk_mpp ) CALL mpp_sum ( dom_vvl_alloc )81 IF( lk_mpp ) CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 82 82 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 83 83 un_td = 0._wp … … 86 86 IF( ln_vvl_ztilde ) THEN 87 87 ALLOCATE( frq_rst_e3t(jpi,jpj) , frq_rst_hdv(jpi,jpj) , hdiv_lf(jpi,jpj,jpk) , STAT= dom_vvl_alloc ) 88 IF( lk_mpp ) CALL mpp_sum ( dom_vvl_alloc )88 IF( lk_mpp ) CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 89 89 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 90 90 ENDIF … … 406 406 END DO 407 407 z_tmax = MAXVAL( ze3t(:,:,:) ) 408 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain408 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 409 409 z_tmin = MINVAL( ze3t(:,:,:) ) 410 IF( lk_mpp ) CALL mpp_min( z_tmin ) ! min over the global domain410 IF( lk_mpp ) CALL mpp_min( 'domvvl', z_tmin ) ! min over the global domain 411 411 ! - ML - test: for the moment, stop simulation for too large e3_t variations 412 412 IF( ( z_tmax > rn_zdef_max ) .OR. ( z_tmin < - rn_zdef_max ) ) THEN … … 470 470 IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 471 471 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) 472 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain472 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 473 473 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(SUM(tilde_e3t_a))) =', z_tmax 474 474 END IF … … 479 479 END DO 480 480 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshn(:,:) - zht(:,:) ) ) 481 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain481 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 482 482 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshn-SUM(e3t_n))) =', z_tmax 483 483 ! … … 487 487 END DO 488 488 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + ssha(:,:) - zht(:,:) ) ) 489 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain489 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 490 490 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+ssha-SUM(e3t_a))) =', z_tmax 491 491 ! … … 495 495 END DO 496 496 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshb(:,:) - zht(:,:) ) ) 497 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain497 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 498 498 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshb-SUM(e3t_b))) =', z_tmax 499 499 ! 500 500 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshb(:,:) ) ) 501 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain501 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 502 502 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshb))) =', z_tmax 503 503 ! 504 504 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshn(:,:) ) ) 505 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain505 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 506 506 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshn))) =', z_tmax 507 507 ! 508 508 z_tmax = MAXVAL( tmask(:,:,1) * ABS( ssha(:,:) ) ) 509 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain509 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 510 510 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ssha))) =', z_tmax 511 511 END IF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/CANAL/MY_SRC/usrdef_zgr.F90
r10170 r10297 198 198 CASE(1) 199 199 zmaxlam = MAXVAL(glamt) 200 IF( lk_mpp ) CALL mpp_max( zmaxlam ) ! max over the global domain200 IF( lk_mpp ) CALL mpp_max( 'usrdef_zgr', zmaxlam ) ! max over the global domain 201 201 zscl = rpi / zmaxlam 202 202 z2d(:,:) = 0.5 * ( 1. - COS( glamt(:,:) * zscl ) ) -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/VORTEX/MY_SRC/domvvl.F90
r10170 r10297 79 79 & dtilde_e3t_a(jpi,jpj,jpk) , un_td (jpi,jpj,jpk) , vn_td (jpi,jpj,jpk) , & 80 80 & STAT = dom_vvl_alloc ) 81 IF( lk_mpp ) CALL mpp_sum ( dom_vvl_alloc )81 IF( lk_mpp ) CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 82 82 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 83 83 un_td = 0._wp … … 86 86 IF( ln_vvl_ztilde ) THEN 87 87 ALLOCATE( frq_rst_e3t(jpi,jpj) , frq_rst_hdv(jpi,jpj) , hdiv_lf(jpi,jpj,jpk) , STAT= dom_vvl_alloc ) 88 IF( lk_mpp ) CALL mpp_sum ( dom_vvl_alloc )88 IF( lk_mpp ) CALL mpp_sum ( 'domvvl', dom_vvl_alloc ) 89 89 IF( dom_vvl_alloc /= 0 ) CALL ctl_warn('dom_vvl_alloc: failed to allocate arrays') 90 90 ENDIF … … 429 429 END DO 430 430 z_tmax = MAXVAL( ze3t(:,:,:) ) 431 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain431 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 432 432 z_tmin = MINVAL( ze3t(:,:,:) ) 433 IF( lk_mpp ) CALL mpp_min( z_tmin ) ! min over the global domain433 IF( lk_mpp ) CALL mpp_min( 'domvvl', z_tmin ) ! min over the global domain 434 434 ! - ML - test: for the moment, stop simulation for too large e3_t variations 435 435 IF( ( z_tmax > rn_zdef_max ) .OR. ( z_tmin < - rn_zdef_max ) ) THEN … … 493 493 IF ( ln_vvl_ztilde .OR. ln_vvl_layer ) THEN 494 494 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( zht(:,:) ) ) 495 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain495 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 496 496 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(SUM(tilde_e3t_a))) =', z_tmax 497 497 END IF … … 502 502 END DO 503 503 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshn(:,:) - zht(:,:) ) ) 504 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain504 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 505 505 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshn-SUM(e3t_n))) =', z_tmax 506 506 ! … … 510 510 END DO 511 511 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + ssha(:,:) - zht(:,:) ) ) 512 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain512 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 513 513 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+ssha-SUM(e3t_a))) =', z_tmax 514 514 ! … … 518 518 END DO 519 519 z_tmax = MAXVAL( tmask(:,:,1) * tmask_i(:,:) * ABS( ht_0(:,:) + sshb(:,:) - zht(:,:) ) ) 520 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain520 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 521 521 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ht_0+sshb-SUM(e3t_b))) =', z_tmax 522 522 ! 523 523 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshb(:,:) ) ) 524 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain524 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 525 525 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshb))) =', z_tmax 526 526 ! 527 527 z_tmax = MAXVAL( tmask(:,:,1) * ABS( sshn(:,:) ) ) 528 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain528 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 529 529 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(sshn))) =', z_tmax 530 530 ! 531 531 z_tmax = MAXVAL( tmask(:,:,1) * ABS( ssha(:,:) ) ) 532 IF( lk_mpp ) CALL mpp_max( z_tmax ) ! max over the global domain532 IF( lk_mpp ) CALL mpp_max( 'domvvl', z_tmax ) ! max over the global domain 533 533 IF( lwp ) WRITE(numout, *) kt,' MAXVAL(abs(ssha))) =', z_tmax 534 534 END IF -
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/WAD/MY_SRC/bdyini.F90
r10170 r10297 1280 1280 END DO 1281 1281 ! 1282 IF( lk_mpp ) CALL mpp_sum( bdysurftot ) ! sum over the global domain1282 IF( lk_mpp ) CALL mpp_sum( 'bdyini', bdysurftot ) ! sum over the global domain 1283 1283 END IF 1284 1284 ! … … 1520 1520 END DO 1521 1521 END DO 1522 IF( lk_mpp ) CALL mpp_sum( ztestmask, 2 ) ! sum over the global domain1522 IF( lk_mpp ) CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1523 1523 1524 1524 IF (ztestmask(1)==1) THEN … … 1564 1564 END DO 1565 1565 END DO 1566 IF( lk_mpp ) CALL mpp_sum( ztestmask, 2 ) ! sum over the global domain1566 IF( lk_mpp ) CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1567 1567 1568 1568 IF (ztestmask(1)==1) THEN … … 1608 1608 END DO 1609 1609 END DO 1610 IF( lk_mpp ) CALL mpp_sum( ztestmask, 2 ) ! sum over the global domain1610 IF( lk_mpp ) CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1611 1611 1612 1612 IF ((ztestmask(1)==1).AND.(icorns(ib,1)==0)) THEN … … 1638 1638 END DO 1639 1639 END DO 1640 IF( lk_mpp ) CALL mpp_sum( ztestmask, 2 ) ! sum over the global domain1640 IF( lk_mpp ) CALL mpp_sum( 'bdyini', ztestmask, 2 ) ! sum over the global domain 1641 1641 1642 1642 IF ((ztestmask(1)==1).AND.(icornn(ib,1)==0)) THEN
Note: See TracChangeset
for help on using the changeset viewer.
