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 14275 for NEMO/trunk/src/OCE/SBC/sbcice_cice.F90 – NEMO

Ignore:
Timestamp:
2021-01-07T13:13:16+01:00 (3 years ago)
Author:
smasson
Message:

trunk: suppress nproc ( = mpprank = narea-1)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/SBC/sbcice_cice.F90

    r14215 r14275  
    877877! (may be OK but not 100% sure) 
    878878 
    879       IF(nproc==0) THEN      
     879      IF(narea==1) THEN      
    880880!        pcg(:,:)=0.0 
    881881         DO jn=1,jpnij 
    … …  
    998998! the lbclnk call on pn will replace these with sensible values 
    999999 
    1000       IF(nproc==0) THEN 
     1000      IF(narea==1) THEN 
    10011001         png(:,:,:)=0.0 
    10021002         DO jn=1,jpnij 
Note: See TracChangeset for help on using the changeset viewer.