- Timestamp:
- 2012-11-28T17:33:24+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r3680 r3716 41 41 USE lib_mpp ! distributed memory computing 42 42 #if defined key_iomput 43 USE mod_ioclient43 USE xios 44 44 #endif 45 45 USE prtctl ! Print control (prt_ctl_init routine) … … 115 115 CALL nemo_closefile 116 116 ! 117 IF( lk_mpp ) CALL mppstop ! Close all files (mpp) 117 # if defined key_iomput 118 CALL xios_finalize ! end mpp communications 119 # else 120 IF( lk_mpp ) CALL mppstop ! end mpp communications 121 # endif 118 122 ! 119 123 END SUBROUTINE nemo_gcm … … 128 132 INTEGER :: ji ! dummy loop indices 129 133 INTEGER :: ilocal_comm ! local integer 130 CHARACTER(len=80), DIMENSION(16) :: cltxt = ''134 CHARACTER(len=80), DIMENSION(16) :: cltxt 131 135 !! 132 136 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & … … 135 139 !!---------------------------------------------------------------------- 136 140 ! 137 ! ! open Namelist file 141 cltxt = '' 142 ! 143 ! ! open Namelist file 138 144 CALL ctl_opn( numnam, 'namelist', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 139 145 ! … … 144 150 ! !--------------------------------------------! 145 151 #if defined key_iomput 146 CALL init_ioclient( ilocal_comm ) ! exchange io_server nemo local communicator with the io_server152 CALL xios_initialize( "nemo",return_comm=ilocal_comm ) 147 153 narea = mynode( cltxt, numnam, nstop, ilocal_comm ) ! Nodes selection 148 154 #else … … 158 164 ! then we calculate them here now that we have our communicator size 159 165 IF( (jpni < 1) .OR. (jpnj < 1) )THEN 160 #if defined key_mpp_mpi || defined key_mpp_shmem166 #if defined key_mpp_mpi 161 167 CALL nemo_partition(mppsize) 162 168 #else
Note: See TracChangeset
for help on using the changeset viewer.