Changeset 1698 for trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

Timestamp:

2009-10-31T14:19:38+01:00 (15 years ago)

Author:

smasson

Message:

compatibility between oasis3 and oasis4, see ticket:580

File:

• trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90

@@ -39 +39 @@
 !
    LOGICAL, PUBLIC, PARAMETER :: lk_cpl = .TRUE.   ! coupled flag
+   INTEGER, PUBLIC            :: OASIS_Rcv  = 1    ! return code if received field
+   INTEGER, PUBLIC            :: OASIS_idle = 0    ! return code if nothing done by oasis
    INTEGER                    :: ncomp_id          ! id returned by prism_init_comp
    INTEGER                    :: nerror            ! return error code
@@ -267 +269 @@
       IF ( llaction ) THEN
 
+         kinfo = OASIS_Rcv
          pdata(nldi:nlei, nldj:nlej) = exfld(:,:)
          
@@ -285 +288 @@
          ENDIF
       
+      ELSE
+         kinfo = OASIS_idle     
       ENDIF