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 8576 – NEMO

Changeset 8576


Ignore:
Timestamp:
2017-09-29T15:13:51+02:00 (6 years ago)
Author:
gm
Message:

#1883 (HPC-09) - correction of a bug in dynspg_ts with top drag

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

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r8214 r8576  
    206206            DO ji = fs_2, fs_jpim1   ! vector opt. 
    207207               zCdU_u(ji,jj) = 0.5*( rCdU_bot(ji+1,jj)+rCdU_bot(ji,jj) + rCdU_top(ji+1,jj)+rCdU_top(ji,jj) ) 
    208                zCdU_v(ji,jj) = 0.5*( rCdU_bot(ji,jj+1)+rCdU_bot(ji,jj) + rCdU_top(ji+1,jj)+rCdU_top(ji,jj) ) 
     208               zCdU_v(ji,jj) = 0.5*( rCdU_bot(ji,jj+1)+rCdU_bot(ji,jj) + rCdU_top(ji,jj+1)+rCdU_top(ji,jj) ) 
    209209            END DO 
    210210         END DO 
  • branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r8143 r8576  
    159159      !!              Bruchard OM 2002 
    160160      !!---------------------------------------------------------------------- 
    161       INTEGER                    , INTENT(in   ) ::   kt             ! ocean time step 
     161      INTEGER                   , INTENT(in   ) ::   kt             ! ocean time step 
    162162      REAL(wp), DIMENSION(:,:,:), INTENT(in   ) ::   p_sh2          ! shear production term 
    163       REAL(wp), DIMENSION(:,:,:) , INTENT(inout) ::   p_avm, p_avt   !  momentum and tracer Kz (w-points) 
     163      REAL(wp), DIMENSION(:,:,:), INTENT(inout) ::   p_avm, p_avt   !  momentum and tracer Kz (w-points) 
    164164      !!---------------------------------------------------------------------- 
    165165      ! 
Note: See TracChangeset for help on using the changeset viewer.