New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2589 – NEMO

Changeset 2589


Ignore:
Timestamp:
2011-02-17T18:02:46+01:00 (13 years ago)
Author:
mafoipsl
Message:

Correction in diaptr as in [2571].

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diaptr.F90

    r1880 r2589  
    367367            DO jj = 2, jpj 
    368368               DO ji = 1, jpi 
    369                   vt(ji,jj,:) = tn(ji,jj,:) * ( vn(ji,jj,:) + vn(ji,jj-1,:) + u_eiv(ji,jj,:) + u_eiv(ji,jj-1,:) )*0.5 
     369                  vt(ji,jj,:) = tn(ji,jj,:) * ( vn(ji,jj,:) + vn(ji,jj-1,:) + v_eiv(ji,jj,:) + v_eiv(ji,jj-1,:) )*0.5 
    370370                  vs(ji,jj,:) = sn(ji,jj,:) * ( vn(ji,jj,:) + vn(ji,jj-1,:) + v_eiv(ji,jj,:) + v_eiv(ji,jj-1,:) )*0.5 
    371371               END DO 
Note: See TracChangeset for help on using the changeset viewer.