- Timestamp:
- 2013-11-04T13:54:28+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r4147 r4148 464 464 IF( nn_dyn2d(ib_bdy) .gt. 0 .and. ( nn_dyn2d_dta(ib_bdy) .eq. 1 .or. nn_dyn2d_dta(ib_bdy) .eq. 3 ) ) THEN 465 465 466 IF( nn_ tra(ib_bdy) .ne. 4 ) THEN ! runoff condition : no ssh reading466 IF( nn_dyn2d(ib_bdy) .ne. jp_frs .and. nn_tra(ib_bdy) .ne. 4 ) THEN ! runoff condition : no ssh reading 467 467 jfld = jfld + 1 468 468 blf_i(jfld) = bn_ssh … … 560 560 ! Recalculate field counts 561 561 !------------------------- 562 nb_bdy_fld_sum = 0563 562 IF( ib_bdy .eq. 1 ) THEN 563 nb_bdy_fld_sum = 0 564 564 nb_bdy_fld(ib_bdy) = jfld 565 565 nb_bdy_fld_sum = jfld … … 604 604 ALLOCATE( dta_bdy(ib_bdy)%u2d(ilen0(2)) ) 605 605 ALLOCATE( dta_bdy(ib_bdy)%v2d(ilen0(3)) ) 606 IF ( nn_dyn2d_dta(ib_bdy).eq.1.or.nn_dyn2d_dta(ib_bdy).eq.3) THEN606 IF ( nn_dyn2d(ib_bdy) .ne. jp_frs .and. (nn_dyn2d_dta(ib_bdy).eq.1.or.nn_dyn2d_dta(ib_bdy).eq.3) ) THEN 607 607 jfld = jfld + 1 608 608 dta_bdy(ib_bdy)%ssh => bf(jfld)%fnow(:,1,1)
Note: See TracChangeset
for help on using the changeset viewer.