Changeset 10425 for NEMO/trunk/src/OCE/STO
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- Location:
- NEMO/trunk/src/OCE/STO
- Files:
-
- 2 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 -
NEMO/trunk/src/OCE/STO/stopts.F90
r10069 r10425 54 54 55 55 DO jts = 1, jpts 56 CALL lbc_lnk( pts(:,:,:,jts), 'T' , 1._wp )56 CALL lbc_lnk( 'stopts', pts(:,:,:,jts), 'T' , 1._wp ) 57 57 ENDDO 58 58 … … 123 123 DO jdof = 1, nn_sto_eos 124 124 DO jts = 1, jpts 125 CALL lbc_lnk( pts_ran(:,:,:,jts,jdof), 'T' , 1._wp )125 CALL lbc_lnk( 'stopts', pts_ran(:,:,:,jts,jdof), 'T' , 1._wp ) 126 126 END DO 127 127 END DO
Note: See TracChangeset
for help on using the changeset viewer.