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 4806 for trunk/NEMOGCM – NEMO

Changeset 4806 for trunk/NEMOGCM


Ignore:
Timestamp:
2014-10-03T12:55:34+02:00 (9 years ago)
Author:
frrh
Message:

#1378 Apply simplest solution to ensure that return codes from oasis put
operations are reported correctly without being overwritten by local
return code values required by sbccpl.

Note: This version does not address the issue of best practice where
the use of kinfo for two different purposes in the same routine
should be disambiguated.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

    r3294 r4806  
    286286         IF ( llaction ) THEN 
    287287             
    288             kinfo = OASIS_Rcv 
    289288            pdata(nldi:nlei, nldj:nlej,jc) = exfld(:,:) 
    290289             
     
    304303               WRITE(numout,*) '****************' 
    305304            ENDIF 
     305 
     306            ! Ideally we would not reuse kinfo, but define a separate variable 
     307            ! for use as the return code from this routine to avoid confusion 
     308            ! with the return code previously obtained from the coupler. 
     309            kinfo = OASIS_Rcv 
    306310             
    307311         ELSE 
Note: See TracChangeset for help on using the changeset viewer.