- Timestamp:
- 2018-06-20T15:41:08+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/STO/stopar.F90
r9598 r9814 172 172 ! Apply horizontal Laplacian filter to w 173 173 DO jflt = 1, sto2d_flt(jsto) 174 CALL lbc_lnk( 174 CALL lbc_lnk("stopar",sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 175 175 CALL sto_par_flt( sto2d(:,:,jsto) ) 176 176 END DO … … 195 195 196 196 ! Lateral boundary conditions on sto2d 197 CALL lbc_lnk( 197 CALL lbc_lnk("stopar",sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 198 198 END DO 199 199 ! … … 210 210 ! Apply horizontal Laplacian filter to w 211 211 DO jflt = 1, sto3d_flt(jsto) 212 CALL lbc_lnk( 212 CALL lbc_lnk("stopar",sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 213 213 CALL sto_par_flt( sto3d(:,:,jk,jsto) ) 214 214 END DO … … 233 233 END DO 234 234 ! Lateral boundary conditions on sto3d 235 CALL lbc_lnk( 235 CALL lbc_lnk("stopar",sto3d(:,:,:,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 236 236 END DO 237 237 ! … … 642 642 ! Apply horizontal Laplacian filter to w 643 643 DO jflt = 1, sto2d_flt(jsto) 644 CALL lbc_lnk( 644 CALL lbc_lnk("stopar",sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) ) 645 645 CALL sto_par_flt( sto2d(:,:,jsto) ) 646 646 END DO … … 659 659 ! Apply horizontal Laplacian filter to w 660 660 DO jflt = 1, sto3d_flt(jsto) 661 CALL lbc_lnk( 661 CALL lbc_lnk("stopar",sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 662 662 CALL sto_par_flt( sto3d(:,:,jk,jsto) ) 663 663 END DO
Note: See TracChangeset
for help on using the changeset viewer.