Changeset 2094

Timestamp:

2010-09-15T10:25:16+02:00 (14 years ago)

Author:

davestorkey

Message:

Correction to bug fix.

File:

• branches/DEV_r1986_BDY_updates/NEMO/OPA_SRC/BDY/bdydta.F90 (modified) (1 diff)

branches/DEV_r1986_BDY_updates/NEMO/OPA_SRC/BDY/bdydta.F90

@@ -665 +665 @@
        ! 
        IF( ln_bdy_clim ) THEN   ;   zxy = REAL( nday                   ) / REAL( nmonth_len(nbdy_b) ) + 0.5 - i15
-       ELSEIF( istep(nbdy_b) == itimer ) THEN 
+       ELSEIF( istep(nbdy_b) == istep(nbdy_a) ) THEN 
                                     zxy = 0.0_wp
        ELSE                     ;   zxy = REAL( istep(nbdy_b) - itimer ) / REAL( istep(nbdy_b) - istep(nbdy_a) )