Changeset 10425 for NEMO/trunk/src/OCE/STO/stopar.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/STO/stopar.F90
r10069 r10425 172 172 ! Apply horizontal Laplacian filter to w 173 173 DO jflt = 1, sto2d_flt(jsto) 174 CALL lbc_lnk( sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) )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( sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) )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( sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) )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( sto3d(:,:,:,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) )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( sto2d(:,:,jsto), sto2d_typ(jsto), sto2d_sgn(jsto) )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( sto3d(:,:,jk,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) )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 … … 701 701 702 702 ! Open the restart file 703 CALL iom_open( cn_storst_in, numstor , kiolib = jprstlib)703 CALL iom_open( cn_storst_in, numstor ) 704 704 705 705 ! Get stochastic parameters from restart file: … … 806 806 ENDIF 807 807 ! open the restart file 808 CALL iom_open( clname, numstow, ldwrt = .TRUE. , kiolib = jprstlib)808 CALL iom_open( clname, numstow, ldwrt = .TRUE. ) 809 809 ENDIF 810 810 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.