Changeset 1434
- Timestamp:
- 2009-05-11T15:44:36+02:00 (15 years ago)
- Location:
- branches/dev_004_VVL/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_004_VVL/NEMO/OPA_SRC/IOM/iom.F90
r1410 r1434 26 26 USE iom_rstdimg ! restarts access direct format "dimg" style... 27 27 28 #if defined key_io server28 #if defined key_iomput 29 29 USE mod_event_client 30 30 # endif … … 38 38 PRIVATE iom_g0d, iom_g1d, iom_g2d, iom_g3d, iom_get_123d 39 39 PRIVATE iom_p2d, iom_p3d 40 #if defined key_io server40 #if defined key_iomput 41 41 PRIVATE iom_init_chkcpp 42 42 PRIVATE set_grid … … 52 52 MODULE PROCEDURE iom_p2d, iom_p3d 53 53 END INTERFACE 54 #if defined key_io server54 #if defined key_iomput 55 55 INTERFACE iom_setkt 56 56 MODULE PROCEDURE event__set_timestep … … 74 74 !!---------------------------------------------------------------------- 75 75 REAL(wp), INTENT(in) :: pjulian !: julian day at nit000 = 0 76 #if defined key_io server76 #if defined key_iomput 77 77 !!---------------------------------------------------------------------- 78 78 ! read the xml file … … 307 307 i_s = 1 308 308 i_e = jpmax_files 309 #if defined key_io server309 #if defined key_iomput 310 310 CALL event__stop_ioserver 311 311 #endif … … 896 896 CHARACTER(LEN=*) , INTENT(in) :: cdname 897 897 REAL(wp), DIMENSION(jpi,jpj), INTENT(in) :: pfield2d 898 #if defined key_io server898 #if defined key_iomput 899 899 CALL event__write_field2D( cdname, pfield2d(nldi:nlei, nldj:nlej) ) 900 900 #endif … … 904 904 CHARACTER(LEN=*) , INTENT(in) :: cdname 905 905 REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) :: pfield3d 906 #if defined key_io server906 #if defined key_iomput 907 907 CALL event__write_field3D( cdname, pfield3d(nldi:nlei, nldj:nlej, :) ) 908 908 #endif … … 911 911 912 912 913 #if defined key_io server913 #if defined key_iomput 914 914 915 915 SUBROUTINE set_grid( cdname, plon, plat ) -
branches/dev_004_VVL/NEMO/OPA_SRC/lib_mpp.F90
r1359 r1434 2364 2364 !! 08/04 :: R. Benshila, generalisation 2365 2365 !!--------------------------------------------------------------------- 2366 #if defined key_ioserver2367 USE io_interface2368 #endif2369 2366 INTEGER :: code, ierr 2370 2367 LOGICAL :: mpi_was_called 2371 2368 !!--------------------------------------------------------------------- 2372 2369 ! 2373 #if defined key_ioserver2374 CALL init_ioserver(mpi_comm_opa,.TRUE.)2375 #else2376 2370 CALL mpi_initialized( mpi_was_called, code ) ! MPI initialization 2377 2371 IF ( code /= MPI_SUCCESS ) THEN … … 2388 2382 ENDIF 2389 2383 ENDIF 2390 #endif2391 2384 ! 2392 2385 IF( nn_buffer > 0 ) THEN -
branches/dev_004_VVL/NEMO/OPA_SRC/opa.F90
r1359 r1434 80 80 USE trcini ! Initialization of the passive tracers 81 81 USE iom 82 #if defined key_io server83 USE io_interface82 #if defined key_iomput 83 USE mod_ioclient 84 84 #endif 85 85 … … 176 176 !! 177 177 !!---------------------------------------------------------------------- 178 #if defined key_oasis3 || defined key_oasis4 || defined key_io server178 #if defined key_oasis3 || defined key_oasis4 || defined key_iomput 179 179 INTEGER :: localComm 180 180 #endif … … 210 210 READ ( numnam, namctl ) 211 211 212 #if defined key_oasis3 || defined key_oasis4 213 call cpl_prism_init(localComm) 212 #if defined key_iomput 213 # if defined key_oasis3 || defined key_oasis4 214 ! nemo local communicator given by oasis 215 CALL cpl_prism_init( localComm ) 216 ! io_server will get its communicators (if needed) from oasis (we don't see it) 217 CALL init_ioclient() 218 # else 219 ! nemo local communicator (used or not) given by the io_server 220 CALL init_ioclient( localcomm ) 221 # endif 214 222 ! Nodes selection 215 narea = mynode(localComm) 216 #elif key_ioserver 217 CALL init_ioserver(localcomm, .FALSE.) 218 narea = mynode(localComm) 223 narea = mynode( localComm ) 219 224 #else 225 # if defined key_oasis3 || defined key_oasis4 226 ! nemo local communicator given by oasis 227 CALL cpl_prism_init( localComm ) 228 ! Nodes selection 229 narea = mynode( localComm ) 230 # else 220 231 ! Nodes selection 221 232 narea = mynode() 233 # endif 222 234 #endif 223 235 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 )
Note: See TracChangeset
for help on using the changeset viewer.