source: XMLIO_V2/dev/common/src/xmlio/fake_client/fake_lmdz.f90 @ 266

Last change on this file since 266 was 266, checked in by hozdoba, 10 years ago

Corrections après tests sur titane

File size: 1.1 KB
Line 
1! --------------------------------------------------- !
2!          XMLIO SERVER MAIN TEST (LMDZ)              !
3! --------------------------------------------------- !
4
5MODULE LMDZ_FAKE
6
7   ! Modules de la bibliothÚque xmlioserver
8   USE XIOS
9   USE ISO_C_BINDING
10
11include 'mpif.h'
12
13   CONTAINS
14
15   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
17   SUBROUTINE LMDZ_FAKE_ENTRY(comm_client, comm_client_grp, comm_client_server) BIND(C)
18      INTEGER(kind = C_INT), INTENT(IN), VALUE :: comm_client,       & ! communicateur des clients
19                                                  comm_client_grp,   & ! communicateur du groupe de clients
20                                                  comm_client_server   ! communicateur client-serveur
21      INTEGER                                  :: rankGrp, error
22
23      CALL MPI_COMM_RANK(comm_client, rankGrp, error)
24
25      IF (rankGrp .EQ. 0) THEN
26         PRINT*," Starting LMDZ Client Tests ..."
27      END IF
28
29   END SUBROUTINE LMDZ_FAKE_ENTRY
30
31   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
32
33END MODULE LMDZ_FAKE
Note: See TracBrowser for help on using the repository browser.