New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1434 – NEMO

Changeset 1434


Ignore:
Timestamp:
2009-05-11T15:44:36+02:00 (15 years ago)
Author:
rblod
Message:

dev_004_VVL:sync: synchro with trunk (r1420), see ticket #412

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  
    2626   USE iom_rstdimg     ! restarts access direct format "dimg" style... 
    2727 
    28 #if defined key_ioserver 
     28#if defined key_iomput 
    2929   USE mod_event_client 
    3030# endif 
     
    3838   PRIVATE iom_g0d, iom_g1d, iom_g2d, iom_g3d, iom_get_123d 
    3939   PRIVATE iom_p2d, iom_p3d 
    40 #if defined key_ioserver 
     40#if defined key_iomput 
    4141   PRIVATE iom_init_chkcpp 
    4242   PRIVATE set_grid 
     
    5252     MODULE PROCEDURE iom_p2d, iom_p3d 
    5353  END INTERFACE 
    54 #if defined key_ioserver 
     54#if defined key_iomput 
    5555   INTERFACE iom_setkt 
    5656      MODULE PROCEDURE event__set_timestep 
     
    7474      !!---------------------------------------------------------------------- 
    7575      REAL(wp), INTENT(in) ::  pjulian   !: julian day at nit000 = 0 
    76 #if defined key_ioserver 
     76#if defined key_iomput 
    7777      !!---------------------------------------------------------------------- 
    7878      ! read the xml file 
     
    307307         i_s = 1 
    308308         i_e = jpmax_files 
    309 #if defined key_ioserver 
     309#if defined key_iomput 
    310310         CALL event__stop_ioserver 
    311311#endif 
     
    896896      CHARACTER(LEN=*)            , INTENT(in) ::   cdname 
    897897      REAL(wp), DIMENSION(jpi,jpj), INTENT(in) ::   pfield2d 
    898 #if defined key_ioserver 
     898#if defined key_iomput 
    899899      CALL event__write_field2D( cdname, pfield2d(nldi:nlei, nldj:nlej) ) 
    900900#endif 
     
    904904      CHARACTER(LEN=*)                , INTENT(in) ::   cdname 
    905905      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) ::   pfield3d 
    906 #if defined key_ioserver 
     906#if defined key_iomput 
    907907      CALL event__write_field3D( cdname, pfield3d(nldi:nlei, nldj:nlej, :) ) 
    908908#endif 
     
    911911 
    912912 
    913 #if defined key_ioserver 
     913#if defined key_iomput 
    914914 
    915915   SUBROUTINE set_grid( cdname, plon, plat ) 
  • branches/dev_004_VVL/NEMO/OPA_SRC/lib_mpp.F90

    r1359 r1434  
    23642364      !!            08/04 :: R. Benshila, generalisation 
    23652365      !!--------------------------------------------------------------------- 
    2366 #if defined key_ioserver 
    2367       USE io_interface 
    2368 #endif 
    23692366      INTEGER                                 :: code, ierr 
    23702367      LOGICAL                                 :: mpi_was_called 
    23712368      !!--------------------------------------------------------------------- 
    23722369      ! 
    2373 #if defined key_ioserver 
    2374       CALL init_ioserver(mpi_comm_opa,.TRUE.) 
    2375 #else 
    23762370      CALL mpi_initialized( mpi_was_called, code )      ! MPI initialization 
    23772371      IF ( code /= MPI_SUCCESS ) THEN 
     
    23882382         ENDIF 
    23892383      ENDIF 
    2390 #endif 
    23912384      ! 
    23922385      IF( nn_buffer > 0 ) THEN 
  • branches/dev_004_VVL/NEMO/OPA_SRC/opa.F90

    r1359 r1434  
    8080   USE trcini          ! Initialization of the passive tracers 
    8181   USE iom 
    82 #if defined key_ioserver 
    83    USE io_interface 
     82#if defined key_iomput 
     83   USE mod_ioclient 
    8484#endif 
    8585 
     
    176176      !! 
    177177      !!---------------------------------------------------------------------- 
    178 #if defined key_oasis3 || defined key_oasis4 || defined key_ioserver 
     178#if defined key_oasis3 || defined key_oasis4 || defined key_iomput 
    179179      INTEGER :: localComm 
    180180#endif 
     
    210210      READ  ( numnam, namctl ) 
    211211 
    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 
    214222      ! Nodes selection 
    215       narea = mynode(localComm) 
    216 #elif key_ioserver 
    217       CALL init_ioserver(localcomm, .FALSE.) 
    218       narea = mynode(localComm) 
     223      narea = mynode( localComm ) 
    219224#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 
    220231      ! Nodes selection 
    221232      narea = mynode() 
     233# endif 
    222234#endif 
    223235      narea = narea + 1    ! mynode return the rank of proc (0 --> jpnij -1 ) 
Note: See TracChangeset for help on using the changeset viewer.