Changeset 10425 for NEMO/trunk/src/OCE/TRA/trabbl.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRA/trabbl.F90
r10068 r10425 84 84 & e3u_bbl_0(jpi,jpj) , e3v_bbl_0(jpi,jpj) , STAT=tra_bbl_alloc ) 85 85 ! 86 IF( lk_mpp ) CALL mpp_sum (tra_bbl_alloc )86 CALL mpp_sum ( 'trabbl', tra_bbl_alloc ) 87 87 IF( tra_bbl_alloc > 0 ) CALL ctl_warn('tra_bbl_alloc: allocation of arrays failed.') 88 88 END FUNCTION tra_bbl_alloc … … 123 123 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 124 124 ! lateral boundary conditions ; just need for outputs 125 CALL lbc_lnk_multi( ahu_bbl, 'U', 1. , ahv_bbl, 'V', 1. )125 CALL lbc_lnk_multi( 'trabbl', ahu_bbl, 'U', 1. , ahv_bbl, 'V', 1. ) 126 126 CALL iom_put( "ahu_bbl", ahu_bbl ) ! bbl diffusive flux i-coef 127 127 CALL iom_put( "ahv_bbl", ahv_bbl ) ! bbl diffusive flux j-coef … … 136 136 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 137 137 ! lateral boundary conditions ; just need for outputs 138 CALL lbc_lnk_multi( utr_bbl, 'U', 1. , vtr_bbl, 'V', 1. )138 CALL lbc_lnk_multi( 'trabbl', utr_bbl, 'U', 1. , vtr_bbl, 'V', 1. ) 139 139 CALL iom_put( "uoce_bbl", utr_bbl ) ! bbl i-transport 140 140 CALL iom_put( "voce_bbl", vtr_bbl ) ! bbl j-transport … … 525 525 ! converte into REAL to use lbc_lnk ; impose a min value of 1 as a zero can be set in lbclnk 526 526 zmbku(:,:) = REAL( mbku_d(:,:), wp ) ; zmbkv(:,:) = REAL( mbkv_d(:,:), wp ) 527 CALL lbc_lnk_multi( zmbku,'U',1., zmbkv,'V',1.)527 CALL lbc_lnk_multi( 'trabbl', zmbku,'U',1., zmbkv,'V',1.) 528 528 mbku_d(:,:) = MAX( INT( zmbku(:,:) ), 1 ) ; mbkv_d(:,:) = MAX( NINT( zmbkv(:,:) ), 1 ) 529 529 ! … … 548 548 END DO 549 549 END DO 550 CALL lbc_lnk_multi( e3u_bbl_0, 'U', 1. , e3v_bbl_0, 'V', 1. ) ! lateral boundary conditions550 CALL lbc_lnk_multi( 'trabbl', e3u_bbl_0, 'U', 1. , e3v_bbl_0, 'V', 1. ) ! lateral boundary conditions 551 551 ! 552 552 ! !* masked diffusive flux coefficients
Note: See TracChangeset
for help on using the changeset viewer.