Changeset 9079 for branches/2017/dev_merge_2017/NEMOGCM/TOOLS/DOMAINcfg/src/nemogcm.f90

Timestamp:

2017-12-15T15:43:43+01:00 (6 years ago)

Author:

flavoni

Message:

update DOMAINcfg TOOLS, do not need xios anymore

File:

• branches/2017/dev_merge_2017/NEMOGCM/TOOLS/DOMAINcfg/src/nemogcm.f90 (modified) (4 diffs)

branches/2017/dev_merge_2017/NEMOGCM/TOOLS/DOMAINcfg/src/nemogcm.f90

@@ -52 +52 @@
    USE lib_mpp        ! distributed memory computing
 
-   USE xios           ! xIOserver
-
    USE lbcnfd , ONLY  : isendto, nsndto, nfsloop, nfeloop   ! Setup of north fold exchanges 
 
@@ -112 +110 @@
       CALL nemo_closefile
       !
-      CALL xios_finalize                  ! end mpp communications with xios
       !
    END SUBROUTINE nemo_gcm
@@ -137 +134 @@
       !
       cltxt = ''
-      cxios_context = 'nemo'
       !
       !                             ! Open reference namelist and configuration namelist files
@@ -167 +163 @@
       !                             !      on unit number numond on first proc   !
       !                             !--------------------------------------------!
-      IF( Agrif_Root() ) THEN
-            CALL  xios_initialize( "for_xios_mpi_id",return_comm=ilocal_comm )    ! nemo local communicator given by xios
-      ENDIF
       ! Nodes selection (control print return in cltxt)
-      narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop, ilocal_comm )
+      ilocal_comm = 0
+      narea = mynode( cltxt, 'output.namelist.dyn', numnam_ref, numnam_cfg, numond , nstop )
       narea = narea + 1                                     ! mynode return the rank of proc (0 --> jpnij -1 )