Changeset 417


Ignore:
Timestamp:
2006-03-21T08:57:56+01:00 (15 years ago)
Author:
opalod
Message:

nemo_v1_bugfix_034 : CT : use the ABS function for Un field in the mpp_maxloc CALL

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/stpctl.F90

    r389 r417  
    124124         IF(lwp) WRITE(numout,*) ' ==>> time-step= ',kt,' abs(U) max: ', zumax 
    125125      ENDIF 
    126       IF( zumax >  20.) THEN 
    127          IF (lk_mpp ) THEN 
    128             CALL mpp_maxloc(un,umask,zumax,ii,ij,ik) 
     126      IF( zumax > 20.) THEN 
     127         IF( lk_mpp ) THEN 
     128            CALL mpp_maxloc(ABS(un),umask,zumax,ii,ij,ik) 
    129129         ELSE 
    130            ilocu = MAXLOC( ABS( un(:,:,:) ) ) 
    131            ii = ilocu(1) + nimpp - 1 
    132            ij = ilocu(2) + njmpp - 1 
    133            ik = ilocu(3) 
     130            ilocu = MAXLOC( ABS( un(:,:,:) ) ) 
     131            ii = ilocu(1) + nimpp - 1 
     132            ij = ilocu(2) + njmpp - 1 
     133            ik = ilocu(3) 
    134134         ENDIF 
    135135         IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.