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 10009 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DYN/dynspg.F90 – NEMO

Ignore:
Timestamp:
2018-07-29T11:23:51+02:00 (6 years ago)
Author:
gm
Message:

#1911 (ENHANCE-04): RK3 branch - step II.1 time-level dimension on ssh

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/DYN/dynspg.F90

    r9939 r10009  
    120120                  DO jj = 2, jpjm1                    ! add tide potential + scalar approximation of load potential 
    121121                     DO ji = fs_2, fs_jpim1   ! vector opt. 
    122                         spgu(ji,jj) = spgu(ji,jj) + (  grav * ( pot_astro(ji+1,jj) - pot_astro(ji,jj) )  & 
    123                            &                         + zld  * ( sshn     (ji+1,jj) - sshn     (ji,jj) )  ) * r1_e1u(ji,jj) 
    124                         spgv(ji,jj) = spgv(ji,jj) + (  grav * ( pot_astro(ji,jj+1) - pot_astro(ji,jj) )  & 
    125                            &                         + zld  * ( sshn     (ji,jj+1) - sshn     (ji,jj) )  ) * r1_e2v(ji,jj) 
     122                        spgu(ji,jj) = spgu(ji,jj) + (  grav * ( pot_astro(ji+1,jj)     - pot_astro(ji,jj)    )  & 
     123                           &                         + zld  * ( ssh      (ji+1,jj,Nnn) - ssh      (ji,jj,Nnn) )  ) * r1_e1u(ji,jj) 
     124                        spgv(ji,jj) = spgv(ji,jj) + (  grav * ( pot_astro(ji,jj+1)     - pot_astro(ji,jj)    )  & 
     125                           &                         + zld  * ( ssh      (ji,jj+1,Nnn) - ssh      (ji,jj,Nnn) )  ) * r1_e2v(ji,jj) 
    126126                     END DO  
    127127                  END DO 
Note: See TracChangeset for help on using the changeset viewer.