Ignore:
Timestamp:
11/07/16 17:55:55 (8 years ago)
Author:
oabramkina
Message:

My branch

Location:
XIOS/dev/dev_olga
Files:
1 edited
1 copied

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_olga/src/xios_server.f90

    r501 r983  
    44  INCLUDE "mpif.h" 
    55  INTEGER :: ierr 
    6    
    7     CALL xios_init_server 
     6  INTEGER            :: server_level = 0   
     7  ! 0 in case of a single server pool  
     8  ! 1 for primary server in case of two server pools 
     9  ! 2 for secondary server in case of two server pools 
    810 
    9   END PROGRAM server_main 
     11  CALL xios_init_server(server_level) 
     12 
     13END PROGRAM server_main 
Note: See TracChangeset for help on using the changeset viewer.