- Timestamp:
- 2015-06-09T18:52:06+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r5134_UKMO4_CF_compliance/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r4990 r5388 3183 3183 LOGICAL, PUBLIC, PARAMETER :: lk_mpp = .FALSE. !: mpp flag 3184 3184 LOGICAL, PUBLIC :: ln_nnogather !: namelist control of northfold comms (needed here in case "key_mpp_mpi" is not used) 3185 INTEGER :: ncomm_ice 3185 INTEGER :: ncomm_ice 3186 INTEGER, PUBLIC :: mpi_comm_opa ! opa local communicator 3186 3187 !!---------------------------------------------------------------------- 3187 3188 CONTAINS … … 3196 3197 CHARACTER(len=*),DIMENSION(:) :: ldtxt 3197 3198 INTEGER :: kumnam_ref, knumnam_cfg , kumond , kstop 3198 IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) ) function_value = 0 3199 IF( PRESENT( localComm ) ) mpi_comm_opa = localComm 3200 function_value = 0 3199 3201 IF( .FALSE. ) ldtxt(:) = 'never done' 3200 3202 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )
Note: See TracChangeset
for help on using the changeset viewer.