Changeset 7468 for branches/2016/dev_merge_2016
- Timestamp:
- 2016-12-07T10:53:03+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_merge_2016/NEMOGCM/NEMO/TOP_SRC/trcbc.F90
r7412 r7468 190 190 WRITE(numout,*) ' ' 191 191 WRITE(numout,'(a,i3)') ' Total tracers to be initialized with COASTAL BCs data:', nb_trccbc 192 IF 192 IF( nb_trccbc > 0 ) THEN 193 193 WRITE(numout,*) ' #trc NAME Boundary Mult.Fact. ' 194 194 DO jn = 1, ntrc … … 197 197 ENDIF 198 198 WRITE(numout,'(2a)') ' COASTAL BC data repository : ', TRIM(cn_dir_cbc) 199 IF ( .NOT. ln_rnf) ln_rnf_ctl = .FALSE.200 IF 199 IF( .NOT.ln_rnf .OR. .NOT.ln_linssh ) ln_rnf_ctl = .FALSE. 200 IF( ln_rnf_ctl ) WRITE(numout,'(a)') ' -> Remove runoff dilution effect on tracers with absent river load (ln_rnf_ctl = .TRUE.)' 201 201 WRITE(numout,*) ' ' 202 202 WRITE(numout,'(a,i3)') ' Total tracers to be initialized with OPEN BCs data:', nb_trcobc 203 203 204 IF 204 IF( ln_bdy .AND. nb_trcobc > 0 ) THEN 205 205 WRITE(numout,*) ' #trc NAME Boundary Mult.Fact. OBC Settings' 206 206 DO jn = 1, ntrc 207 IF 208 IF 207 IF( ln_trc_obc(jn) ) WRITE(numout, 9001) jn, TRIM( sn_trcobc(jn)%clvar ), 'OBC', rn_trofac(jn), (trcdta_bdy(jn,ib)%cn_obc,ib=1,nb_bdy) 208 IF( .NOT. ln_trc_obc(jn) ) WRITE(numout, 9002) jn, 'Set data to IC and use default condition', (trcdta_bdy(jn,ib)%cn_obc,ib=1,nb_bdy) 209 209 ENDDO 210 210 WRITE(numout,*) ' ' 211 211 DO ib = 1, nb_bdy 212 IF 213 IF 214 IF 215 IF 212 IF(nn_trcdmp_bdy(ib) .EQ. 0) WRITE(numout,9003) ' Boundary ',ib,' -> NO damping of tracers' 213 IF(nn_trcdmp_bdy(ib) .EQ. 1) WRITE(numout,9003) ' Boundary ',ib,' -> damping ONLY for tracers with external data provided' 214 IF(nn_trcdmp_bdy(ib) .EQ. 2) WRITE(numout,9003) ' Boundary ',ib,' -> damping of ALL tracers' 215 IF(nn_trcdmp_bdy(ib) .GT. 0) THEN 216 216 WRITE(numout,9003) ' USE damping parameters from nambdy for boundary ', ib,' : ' 217 217 WRITE(numout,'(a,f10.2,a)') ' - Inflow damping time scale : ',rn_time_dmp(ib),' days'
Note: See TracChangeset
for help on using the changeset viewer.