Changeset 11446 for NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/SBC
- Timestamp:
- 2019-08-19T10:17:17+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0_GC_couple_pkg/src/OCE/SBC/cpl_oasis3.F90
r11105 r11446 42 42 PUBLIC cpl_freq 43 43 PUBLIC cpl_finalize 44 #if defined key_mpp_mpi45 INCLUDE 'mpif.h'46 #endif47 44 48 INTEGER, PARAMETER :: localRoot = 049 LOGICAL :: commRank ! true for ranks doing OASIS communication50 #if defined key_cpl_rootexchg51 LOGICAL :: rootexchg =.true. ! logical switch52 #else53 LOGICAL :: rootexchg =.false. ! logical switch54 #endif55 45 56 46 INTEGER, PUBLIC :: OASIS_Rcv = 1 !: return code if received field … … 97 87 98 88 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: exfld ! Temporary buffer for receiving 99 INTEGER, PUBLIC :: localComm100 89 101 90 !!---------------------------------------------------------------------- … … 136 125 IF ( nerror /= OASIS_Ok ) & 137 126 CALL oasis_abort (ncomp_id, 'cpl_init','Failure in oasis_get_localcomm' ) 138 localComm = kl_comm139 127 ! 140 128 END SUBROUTINE cpl_init … … 525 513 CALL oasis_get_freqs(id, mop, 1, itmp, info) 526 514 #else 527 ! CALL oasis_get_freqs(id, 1, itmp, info) 528 cpl_freq = namflddti( id ) 515 CALL oasis_get_freqs(id, 1, itmp, info) 529 516 #endif 517 cpl_freq = itmp(1) 530 518 ENDIF 531 519 !
Note: See TracChangeset
for help on using the changeset viewer.