Changeset 3395


Ignore:
Timestamp:
2012-05-16T10:41:48+02:00 (9 years ago)
Author:
cetlod
Message:

CMIP5_IPSL branch:Correct ei factors for mass flux in diawri.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/CMIP5_IPSL/NEMO/OPA_SRC/DIA/diawri.F90

    r1846 r3395  
    136136         z3d(:,:,jpk) = 0.e0 
    137137         DO jk = 1, jpkm1 
    138             z3d(:,:,jk) = rau0 * un(:,:,jk) * e1u(:,:) * fse3u(:,:,jk) 
     138            z3d(:,:,jk) = rau0 * un(:,:,jk) * e2u(:,:) * fse3u(:,:,jk) 
    139139         END DO 
    140140         CALL iom_put( "u_masstr", z3d )                  ! mass transport in i-direction 
     
    151151         CALL iom_put( "u_heattr", z2d )                  ! heat transport in i-direction 
    152152         DO jk = 1, jpkm1 
    153             z3d(:,:,jk) = rau0 * vn(:,:,jk) * e2v(:,:) * fse3v(:,:,jk) 
     153            z3d(:,:,jk) = rau0 * vn(:,:,jk) * e1v(:,:) * fse3v(:,:,jk) 
    154154         END DO 
    155155         CALL iom_put( "v_masstr", z3d )                  ! mass transport in j-direction 
Note: See TracChangeset for help on using the changeset viewer.