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

Ignore:
Timestamp:
2020-03-09T18:06:41+01:00 (5 years ago)
Author:
smasson
Message:

trunk: minor bugfix in cpl_oasis3, see #2401

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r12377 r12527  
    365365                     WRITE(numout,*) '     - Minimum value is ', MINVAL(pdata(nldi:nlei,nldj:nlej,jc)) 
    366366                     WRITE(numout,*) '     - Maximum value is ', MAXVAL(pdata(nldi:nlei,nldj:nlej,jc)) 
    367                      WRITE(numout,*) '     -     Sum value is ', SUM(pdata(nldi:nlei,nldj:nlej,jc)) 
     367                     WRITE(numout,*) '     -     Sum value is ',    SUM(pdata(nldi:nlei,nldj:nlej,jc)) 
    368368                     WRITE(numout,*) '****************' 
    369369                  ENDIF 
    … …  
    444444                     WRITE(numout,*) 'oasis_get:   kstep', kstep 
    445445                     WRITE(numout,*) 'oasis_get:   info ', kinfo 
    446                      WRITE(numout,*) '     - Minimum value is ', MINVAL(pdata(:,:,jc)) 
    447                      WRITE(numout,*) '     - Maximum value is ', MAXVAL(pdata(:,:,jc)) 
    448                      WRITE(numout,*) '     -     Sum value is ', SUM(pdata(:,:,jc)) 
     446                     WRITE(numout,*) '     - Minimum value is ', MINVAL(pdata(nldi:nlei,nldj:nlej,jc)) 
     447                     WRITE(numout,*) '     - Maximum value is ', MAXVAL(pdata(nldi:nlei,nldj:nlej,jc)) 
     448                     WRITE(numout,*) '     -     Sum value is ',    SUM(pdata(nldi:nlei,nldj:nlej,jc)) 
    449449                     WRITE(numout,*) '****************' 
    450450                  ENDIF 
Note: See TracChangeset for help on using the changeset viewer.