Ignore:
Timestamp:
2015-11-29T20:28:41+01:00 (5 years ago)
Author:
mathiot
Message:

ISF: change related to reviewers comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

    r5189 r5944  
    8686         DO jj = 2, jpj                   ! vertical fluxes  
    8787            DO ji = fs_2, jpi 
    88                zww(ji,jj) = 0.25_wp * e1e2t(ji,jj) * wn(ji,jj,jk) 
     88               zww(ji,jj) = 0.25_wp * e12t(ji,jj) * wn(ji,jj,jk) 
    8989            END DO 
    9090         END DO 
     
    193193         DO jj = 2, jpj                    
    194194            DO ji = fs_2, jpi             ! vector opt. 
    195                zww(ji,jj,jk) = 0.25_wp * e1e2t(ji,jj) * wn(ji,jj,jk) 
     195               zww(ji,jj,jk) = 0.25_wp * e12t(ji,jj) * wn(ji,jj,jk) 
    196196            END DO 
    197197         END DO 
Note: See TracChangeset for help on using the changeset viewer.