Changeset 412 for trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

Timestamp:

2006-03-20T18:13:43+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_031 : CT : make the computation of ahtu(), ahtv() & ahtw() done in auto-task identical to the one done in mono-processor

File:

• trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

@@ -176 +176 @@
                zaht      = ( 1. -  MIN( 1., ABS( ff(ji,jj) / zf20 ) ) ) * ( aht0 - zaht_min )  &
                   &      + aht0 * upsrnfh(ji,jj)                          ! enhanced near river mouths
-               ahtu(ji,jj) = MAX( zaht_min, aeiu(ji,jj) ) + zaht
-               ahtv(ji,jj) = MAX( zaht_min, aeiv(ji,jj) ) + zaht
-               ahtw(ji,jj) = MAX( zaht_min, aeiw(ji,jj) ) + zaht
+               ahtu(ji,jj) = MAX( MAX( zaht_min, aeiu(ji,jj) ) + zaht, aht0 )
+               ahtv(ji,jj) = MAX( MAX( zaht_min, aeiv(ji,jj) ) + zaht, aht0 )
+               ahtw(ji,jj) = MAX( MAX( zaht_min, aeiw(ji,jj) ) + zaht, aht0 )
             END DO
          END DO