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

Changeset 95


Ignore:
Timestamp:
2004-06-25T10:07:15+02:00 (21 years ago)
Author:
opalod
Message:

CT : BUGFIX061 : mpp correction on ijmppeven and ijmppodd indices

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SOL/solsor.F90

    r86 r95  
    7070      !!---------------------------------------------------------------------- 
    7171       
    72       ijmppeven = MOD(njmpp  ,2) 
    73       ijmppodd  = MOD(njmpp+1,2) 
     72      ijmppeven = MOD(nimpp+njmpp  ,2) 
     73      ijmppodd  = MOD(nimpp+njmpp+1,2) 
    7474      !                                                       ! ============== 
    7575      DO jn = 1, nmax                                         ! Iterative loop  
    … …  
    141141            niter = jn 
    142142            ncut = 999 
    143             write(numout,*) 'solsor : res max = ', zres2, 'niter= ', niter 
     143         !  write(numout,*) 'solsor : res max = ', zres2, 'niter= ', niter 
    144144         ENDIF 
    145145          
Note: See TracChangeset for help on using the changeset viewer.