Changeset 11446


Ignore:
Timestamp:
2019-08-19T10:17:17+02:00 (14 months ago)
Author:
timgraham
Message:

Remove OASIS3 legacy code from cpl_oasis.F90. Tested to not change results.

File:
1 edited

Legend:

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

    r11105 r11446  
    4242   PUBLIC   cpl_freq 
    4343   PUBLIC   cpl_finalize 
    44 #if defined key_mpp_mpi 
    45    INCLUDE 'mpif.h' 
    46 #endif 
    4744    
    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  
    5545 
    5646   INTEGER, PUBLIC            ::   OASIS_Rcv  = 1    !: return code if received field 
     
    9787 
    9888   REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   exfld   ! Temporary buffer for receiving 
    99    INTEGER, PUBLIC :: localComm  
    10089       
    10190   !!---------------------------------------------------------------------- 
     
    136125      IF ( nerror /= OASIS_Ok ) & 
    137126         CALL oasis_abort (ncomp_id, 'cpl_init','Failure in oasis_get_localcomm' ) 
    138       localComm = kl_comm  
    139127      ! 
    140128   END SUBROUTINE cpl_init 
     
    525513         CALL oasis_get_freqs(id, mop, 1, itmp, info) 
    526514#else 
    527 !         CALL oasis_get_freqs(id,      1, itmp, info) 
    528          cpl_freq = namflddti( id ) 
     515         CALL oasis_get_freqs(id,      1, itmp, info) 
    529516#endif 
     517         cpl_freq = itmp(1)  
    530518      ENDIF 
    531519      ! 
Note: See TracChangeset for help on using the changeset viewer.