Changeset 4145 for trunk/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2013-11-01T18:47:40+01:00 (11 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90
r3971 r4145 147 147 IF( lrst_oce ) CALL rst_write ( kstp ) ! write output ocean restart file 148 148 ! 149 #if defined key_iomput 150 IF( kstp == nitend .OR. indic < 0 ) CALL xios_context_finalize() ! needed for XIOS 151 ! 152 #endif 149 153 END SUBROUTINE stp_c1d 150 154 -
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r3983 r4145 100 100 clname = "nemo" 101 101 IF( TRIM(Agrif_CFixed()) /= '0' ) clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 102 # if defined key_mpp_mpi103 102 CALL xios_context_initialize(TRIM(clname), mpi_comm_opa) 104 # else105 CALL xios_context_initialize(TRIM(clname), 0)106 # endif107 103 CALL iom_swap 108 104 -
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r4047 r4145 3446 3446 LOGICAL, PUBLIC, PARAMETER :: lk_mpp = .FALSE. !: mpp flag 3447 3447 LOGICAL, PUBLIC :: ln_nnogather = .FALSE. !: namelist control of northfold comms (needed here in case "key_mpp_mpi" is not used) 3448 INTEGER :: ncomm_ice 3448 INTEGER :: ncomm_ice 3449 INTEGER, PUBLIC :: mpi_comm_opa !: opa local communicator 3449 3450 !!---------------------------------------------------------------------- 3450 3451 CONTAINS … … 3459 3460 CHARACTER(len=*),DIMENSION(:) :: ldtxt 3460 3461 INTEGER :: kumnam, kstop 3461 IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) ) function_value = 0 3462 IF( PRESENT( localComm ) ) mpi_comm_opa = localComm 3463 function_value = 0 3462 3464 IF( .FALSE. ) ldtxt(:) = 'never done' 3463 3465 END FUNCTION mynode
Note: See TracChangeset
for help on using the changeset viewer.