Ignore:
Timestamp:
2019-06-13T18:20:13+02:00 (18 months ago)
Author:
dancopsey
Message:

Merged in changes from dev_merge_2017_GC_couple_pkg branch except for zotx1 and zoty1 changes in sbccpl.F90.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/SBC/cpl_oasis3.F90

    r10888 r11105  
    4242   PUBLIC   cpl_freq 
    4343   PUBLIC   cpl_finalize 
     44#if defined key_mpp_mpi 
     45   INCLUDE 'mpif.h' 
     46#endif 
     47    
     48   INTEGER, PARAMETER         :: localRoot  = 0 
     49   LOGICAL                    :: commRank            ! true for ranks doing OASIS communication 
     50#if defined key_cpl_rootexchg 
     51   LOGICAL                    :: rootexchg =.true.   ! logical switch  
     52#else 
     53   LOGICAL                    :: rootexchg =.false.  ! logical switch  
     54#endif  
    4455 
    4556   INTEGER, PUBLIC            ::   OASIS_Rcv  = 1    !: return code if received field 
     
    8697 
    8798   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   exfld   ! Temporary buffer for receiving 
    88  
     99   INTEGER, PUBLIC :: localComm  
     100       
    89101   !!---------------------------------------------------------------------- 
    90102   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
     
    124136      IF ( nerror /= OASIS_Ok ) & 
    125137         CALL oasis_abort (ncomp_id, 'cpl_init','Failure in oasis_get_localcomm' ) 
     138      localComm = kl_comm  
    126139      ! 
    127140   END SUBROUTINE cpl_init 
     
    442455                     WRITE(numout,*) '     -     Sum value is ', SUM(pdata(:,:,jc)) 
    443456                     WRITE(numout,*) '****************' 
     457                     CALL FLUSH(numout) 
    444458                  ENDIF 
    445459                   
     
    511525         CALL oasis_get_freqs(id, mop, 1, itmp, info) 
    512526#else 
    513          CALL oasis_get_freqs(id,      1, itmp, info) 
     527!         CALL oasis_get_freqs(id,      1, itmp, info) 
     528         cpl_freq = namflddti( id ) 
    514529#endif 
    515          cpl_freq = itmp(1) 
    516530      ENDIF 
    517531      ! 
Note: See TracChangeset for help on using the changeset viewer.