- Timestamp:
- 2019-07-05T16:52:07+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11219_TOP-01_cethe_PISCES_LBC/src/TOP/trcbc.F90
r10068 r11222 82 82 !! 83 83 NAMELIST/namtrc_bc/ cn_dir_obc, sn_trcobc, rn_trofac, cn_dir_sbc, sn_trcsbc, rn_trsfac, & 84 & cn_dir_cbc, sn_trccbc, rn_trcfac, ln_rnf_ctl, rn_ bc_time84 & cn_dir_cbc, sn_trccbc, rn_trcfac, ln_rnf_ctl, rn_sbc_time, rn_cbc_time 85 85 NAMELIST/namtrc_bdy/ cn_trc_dflt, cn_trc, nn_trcdmp_bdy 86 86 !!---------------------------------------------------------------------- … … 423 423 IF( ln_trc_sbc(jn) ) THEN 424 424 jl = n_trc_indsbc(jn) 425 sf_trcsbc(jl)%fnow(:,:,1) = MAX( rtrn, sf_trcsbc(jl)%fnow(:,:,1) ) ! avoid nedgative value due to interpolation 425 426 DO jj = 2, jpj 426 427 DO ji = fs_2, fs_jpim1 ! vector opt. 427 zfact = 1. / ( e3t_n(ji,jj,1) * rn_ bc_time )428 zfact = 1. / ( e3t_n(ji,jj,1) * rn_sbc_time ) 428 429 tra(ji,jj,1,jn) = tra(ji,jj,1,jn) + rf_trsfac(jl) * sf_trcsbc(jl)%fnow(ji,jj,1) * zfact 429 430 END DO … … 432 433 ! 433 434 ! COASTAL boundary conditions 434 IF( ln_rnf .AND. ln_trc_cbc(jn) ) THEN 435 IF( ( ln_rnf .OR. l_offline ) .AND. ln_trc_cbc(jn) ) THEN 436 IF( l_offline ) rn_rfact = 1._wp 435 437 jl = n_trc_indcbc(jn) 436 438 DO jj = 2, jpj 437 439 DO ji = fs_2, fs_jpim1 ! vector opt. 438 440 DO jk = 1, nk_rnf(ji,jj) 439 zfact = rn_rfact / ( e1e2t(ji,jj) * h_rnf(ji,jj) * rn_ bc_time )441 zfact = rn_rfact / ( e1e2t(ji,jj) * h_rnf(ji,jj) * rn_cbc_time ) * tmask(ji,jj,1) 440 442 tra(ji,jj,jk,jn) = tra(ji,jj,jk,jn) + rf_trcfac(jl) * sf_trccbc(jl)%fnow(ji,jj,1) * zfact 441 443 END DO
Note: See TracChangeset
for help on using the changeset viewer.