Changeset 3716


Ignore:
Timestamp:
2012-11-28T17:33:24+01:00 (9 years ago)
Author:
acc
Message:

Branch dev_MERGE_2012. Updating of OFF_SRC/nemogcm.F90 to replace old io_server calls

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r3680 r3716  
    4141   USE lib_mpp         ! distributed memory computing 
    4242#if defined key_iomput 
    43    USE mod_ioclient 
     43   USE xios 
    4444#endif  
    4545   USE prtctl          ! Print control                    (prt_ctl_init routine) 
     
    115115      CALL nemo_closefile 
    116116      ! 
    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 
    118122      ! 
    119123   END SUBROUTINE nemo_gcm 
     
    128132      INTEGER ::   ji            ! dummy loop indices 
    129133      INTEGER ::   ilocal_comm   ! local integer 
    130       CHARACTER(len=80), DIMENSION(16) ::   cltxt = '' 
     134      CHARACTER(len=80), DIMENSION(16) ::   cltxt 
    131135      !! 
    132136      NAMELIST/namctl/ ln_ctl  , nn_print, nn_ictls, nn_ictle,   & 
     
    135139      !!---------------------------------------------------------------------- 
    136140      ! 
    137       !                             ! open Namelist file      
     141      cltxt = '' 
     142      ! 
     143      !                             ! open Namelist file 
    138144      CALL ctl_opn( numnam, 'namelist', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 
    139145      ! 
     
    144150      !                             !--------------------------------------------! 
    145151#if defined key_iomput 
    146       CALL  init_ioclient( ilocal_comm )                 ! exchange io_server nemo local communicator with the io_server 
     152         CALL  xios_initialize( "nemo",return_comm=ilocal_comm ) 
    147153      narea = mynode( cltxt, numnam, nstop, ilocal_comm )   ! Nodes selection 
    148154#else 
     
    158164      ! then we calculate them here now that we have our communicator size 
    159165      IF( (jpni < 1) .OR. (jpnj < 1) )THEN 
    160 #if   defined key_mpp_mpi   ||   defined key_mpp_shmem 
     166#if   defined key_mpp_mpi 
    161167         CALL nemo_partition(mppsize) 
    162168#else 
Note: See TracChangeset for help on using the changeset viewer.