Changeset 5412 for trunk/NEMOGCM/NEMO/OPA_SRC/LBC
- Timestamp:
- 2015-06-12T20:29:43+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r5407 r5412 3185 3185 LOGICAL, PUBLIC :: ln_nnogather !: namelist control of northfold comms (needed here in case "key_mpp_mpi" is not used) 3186 3186 INTEGER :: ncomm_ice 3187 INTEGER, PUBLIC :: mpi_comm_opa ! opa local communicator 3187 3188 !!---------------------------------------------------------------------- 3188 3189 CONTAINS … … 3198 3199 CHARACTER(len=*) :: ldname 3199 3200 INTEGER :: kumnam_ref, knumnam_cfg , kumond , kstop 3200 IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) ) function_value = 0 3201 IF( PRESENT( localComm ) ) mpi_comm_opa = localComm 3202 function_value = 0 3201 3203 IF( .FALSE. ) ldtxt(:) = 'never done' 3202 3204 CALL ctl_opn( kumond, TRIM(ldname), 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )
Note: See TracChangeset
for help on using the changeset viewer.