Changeset 9111


Ignore:
Timestamp:
2017-12-16T09:40:24+01:00 (3 years ago)
Author:
gm
Message:

dev_merge_2017: bug ji,jj indices in sbccpl.F90 & dynadv_cen2.F90

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90

    r9019 r9111  
    102102      DO jj = 2, jpjm1                    ! surface/bottom advective fluxes set to zero 
    103103         DO ji = fs_2, fs_jpim1 
    104             zfu_uw(ji,jj,jpk) = 0._wp   ;   zfv_vw(jj,jj,jpk) = 0._wp 
    105             zfu_uw(ji,jj, 1 ) = 0._wp   ;   zfv_vw(jj,jj, 1 ) = 0._wp 
     104            zfu_uw(ji,jj,jpk) = 0._wp   ;   zfv_vw(ji,jj,jpk) = 0._wp 
     105            zfu_uw(ji,jj, 1 ) = 0._wp   ;   zfv_vw(ji,jj, 1 ) = 0._wp 
    106106         END DO 
    107107      END DO 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r9098 r9111  
    16341634                  DO ji = fs_2, fs_jpim1   ! vector opt. 
    16351635                     p_taui(ji,jj) = 0.5 * ( frcv(jpr_itx1)%z3(ji,jj,1) + frcv(jpr_itx1)%z3(ji  ,jj-1,1) ) 
    1636                      p_tauj(ji,jj) = 0.5 * ( frcv(jpr_ity1)%z3(jj,jj,1) + frcv(jpr_ity1)%z3(ji-1,jj  ,1) ) 
     1636                     p_tauj(ji,jj) = 0.5 * ( frcv(jpr_ity1)%z3(ji,jj,1) + frcv(jpr_ity1)%z3(ji-1,jj  ,1) ) 
    16371637                  END DO 
    16381638               END DO 
Note: See TracChangeset for help on using the changeset viewer.