- Timestamp:
- 2019-02-15T14:55:37+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/fix_ticket2229
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_ticket2229
- Property svn:externals
-
old new 1 ^/utils/build/arch 2 ^/utils/build/makenemo 3 ^/utils/build/mk 4 ^/utils/tools 5 ^/vendors/AGRIF/dev 6 ^/vendors/FCM 7 ^/vendors/IOIPSL 1 ^/utils/build/arch@HEAD arch 2 ^/utils/build/makenemo@HEAD makenemo 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 ^/vendors/FCM@HEAD ext/FCM 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/branches/2019/fix_ticket2229/src/OCE/BDY/bdydta.F90
r10529 r10689 371 371 END DO ! jbdy 372 372 373 IF ( ln_apr_obc ) THEN 374 DO jbdy = 1, nb_bdy 375 IF (cn_tra(jbdy) /= 'runoff')THEN 376 igrd = 1 ! meridional velocity 377 DO ib = 1, idx_bdy(jbdy)%nblenrim(igrd) 378 ii = idx_bdy(jbdy)%nbi(ib,igrd) 379 ij = idx_bdy(jbdy)%nbj(ib,igrd) 380 dta_bdy(jbdy)%ssh(ib) = dta_bdy(jbdy)%ssh(ib) + ssh_ib(ii,ij) 381 END DO 382 ENDIF 383 END DO 384 ENDIF 385 373 386 IF ( ln_tide ) THEN 374 387 IF (ln_dynspg_ts) THEN ! Fill temporary arrays with slow-varying bdy data … … 389 402 ENDIF 390 403 391 IF ( ln_apr_obc ) THEN392 DO jbdy = 1, nb_bdy393 IF (cn_tra(jbdy) /= 'runoff')THEN394 igrd = 1 ! meridional velocity395 DO ib = 1, idx_bdy(jbdy)%nblenrim(igrd)396 ii = idx_bdy(jbdy)%nbi(ib,igrd)397 ij = idx_bdy(jbdy)%nbj(ib,igrd)398 dta_bdy(jbdy)%ssh(ib) = dta_bdy(jbdy)%ssh(ib) + ssh_ib(ii,ij)399 END DO400 ENDIF401 END DO402 ENDIF403 404 ! 404 405 IF( ln_timing ) CALL timing_stop('bdy_dta')
Note: See TracChangeset
for help on using the changeset viewer.