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 2435 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90 – NEMO

Ignore:
Timestamp:
2010-11-25T17:33:31+01:00 (13 years ago)
Author:
cetlod
Message:

Improve the 1D vertical configuration in v3.3beta

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

    r2401 r2435  
    200200      !                                            !* horizontal Shapiro filter 
    201201      DO jk = 2, jpkm1 
    202          DO jj = 2, jpjm1, jpj-3                        ! rows jj=2 and =jpjm1 only 
     202         DO jj = 2, jpjm1, MAX(1, jpj-3)                        ! rows jj=2 and =jpjm1 only 
    203203            DO ji = 2, jpim1   
    204204               uslp(ji,jj,jk) = z1_16 * (        zwz(ji-1,jj-1,jk) + zwz(ji+1,jj-1,jk)      & 
    … …  
    282282      !                                           !* horizontal Shapiro filter 
    283283      DO jk = 2, jpkm1 
    284          DO jj = 2, jpjm1, jpj-3                        ! rows jj=2 and =jpjm1 
     284         DO jj = 2, jpjm1, MAX(1, jpj-3)                        ! rows jj=2 and =jpjm1 only 
    285285            DO ji = 2, jpim1 
    286286               wslpi(ji,jj,jk) = (        zwz(ji-1,jj-1,jk) + zwz(ji+1,jj-1,jk)     & 
Note: See TracChangeset for help on using the changeset viewer.