Changeset 412


Ignore:
Timestamp:
2006-03-20T18:13:43+01:00 (15 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/LDF/ldfeiv.F90

    r258 r412  
    176176               zaht      = ( 1. -  MIN( 1., ABS( ff(ji,jj) / zf20 ) ) ) * ( aht0 - zaht_min )  & 
    177177                  &      + aht0 * upsrnfh(ji,jj)                          ! enhanced near river mouths 
    178                ahtu(ji,jj) = MAX( zaht_min, aeiu(ji,jj) ) + zaht 
    179                ahtv(ji,jj) = MAX( zaht_min, aeiv(ji,jj) ) + zaht 
    180                ahtw(ji,jj) = MAX( zaht_min, aeiw(ji,jj) ) + zaht 
     178               ahtu(ji,jj) = MAX( MAX( zaht_min, aeiu(ji,jj) ) + zaht, aht0 ) 
     179               ahtv(ji,jj) = MAX( MAX( zaht_min, aeiv(ji,jj) ) + zaht, aht0 ) 
     180               ahtw(ji,jj) = MAX( MAX( zaht_min, aeiw(ji,jj) ) + zaht, aht0 ) 
    181181            END DO 
    182182         END DO 
Note: See TracChangeset for help on using the changeset viewer.