Changeset 3279


Ignore:
Timestamp:
2012-01-27T13:50:44+01:00 (9 years ago)
Author:
hliu
Message:

remove a mistake in r3278

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90

    r3278 r3279  
    8989      ! column vector of the tri-diagonal matrix equation 
    9090      ! 
     91     DO jk = 1, jpk 
     92        DO jj = 1, jpj 
     93           DO ji =1, jpi 
     94              zavmu(ji,jj,jk) = avmu(ji,jj,jk) 
     95              zavmv(ji,jj,jk) = avmv(ji,jj,jk) 
     96           END DO 
     97        END DO 
     98      END DO 
     99 
    91100      IF( ln_bfrimp ) THEN 
    92       DO jk = 1, jpk 
    93          DO jj = 1, jpj 
    94             DO ji =1, jpi 
    95                zavmu(ji,jj,jk) = avmu(ji,jj,jk) 
    96                zavmv(ji,jj,jk) = avmv(ji,jj,jk) 
    97             END DO 
    98          END DO 
    99        END DO 
    100  
    101101# if defined key_vectopt_loop 
    102102      DO jj = 1, 1 
Note: See TracChangeset for help on using the changeset viewer.