Changeset 177 for XMLIO_V2/dev/dev_rv/src/xmlio/fake_client

Timestamp:

04/18/11 11:30:27 (13 years ago)

Author:

hozdoba

Message:

 

Location:

XMLIO_V2/dev/dev_rv/src/xmlio/fake_client

Files:

• fake_lmdz.f90 (modified) (1 diff)
• fake_nemo.f90 (modified) (2 diffs)
• fake_orchidee.f90 (modified) (1 diff)

XMLIO_V2/dev/dev_rv/src/xmlio/fake_client/fake_lmdz.f90

@@ -19 +19 @@
                                                   comm_client_grp,   & ! communicateur du groupe de clients
                                                   comm_client_server   ! communicateur client-serveur
-      INTEGER                                  :: rankGrp, nbClientAll, nbClientGrp, error
+      INTEGER                                  :: rankGrp, error
 
-      CALL MPI_COMM_SIZE(comm_client, nbClientAll, err)
-      CALL MPI_COMM_SIZE(comm_client_grp, nbClientGrp, err)
-      CALL MPI_COMM_RANK(comm_client_server, rankGrp, err)
+      CALL MPI_COMM_RANK(comm_client, rankGrp, error)
 
       IF (rankGrp .EQ. 0) THEN
-         PRINT*," Starting LMDZ Tests"
+         PRINT*," Starting LMDZ Client Tests ..."
       END IF
 

XMLIO_V2/dev/dev_rv/src/xmlio/fake_client/fake_nemo.f90

@@ -20 +20 @@
                                                   comm_client_server   ! communicateur client-serveur
       REAL(kind = 8), DIMENSION(10000)   :: real_array
-      INTEGER                           :: rankGrp, nbClientAll, nbClientGrp, error
+      INTEGER                           :: rankGrp, error
       INTEGER                           :: ibegin, iend, jbegin, jend
       TYPE(XDate)                       :: init_date_nemo  = XDate(1985, 03, 15, 17, 35, 00)
@@ -28 +28 @@
                                            temp_mod__ = NULLHANDLE
 
-      CALL MPI_COMM_SIZE(comm_client, nbClientAll, err)
-      CALL MPI_COMM_SIZE(comm_client_grp, nbClientGrp, err)
-      CALL MPI_COMM_RANK(comm_client_server, rankGrp, err)
+      CALL MPI_COMM_RANK(comm_client, rankGrp, error)
 
       IF (rankGrp .EQ. 0) THEN
-         PRINT*," Starting NEMO Tests"
+          PRINT*," Starting NEMO Client Tests ..."
       END IF
 

XMLIO_V2/dev/dev_rv/src/xmlio/fake_client/fake_orchidee.f90

@@ -19 +19 @@
                                                   comm_client_grp,   & ! communicateur du groupe de clients
                                                   comm_client_server   ! communicateur client-serveur
-      INTEGER                                  :: rankGrp, nbClientAll, nbClientGrp, error
+      INTEGER                                  :: rankGrp, error
 
-      CALL MPI_COMM_SIZE(comm_client, nbClientAll, err)
-      CALL MPI_COMM_SIZE(comm_client_grp, nbClientGrp, err)
-      CALL MPI_COMM_RANK(comm_client_server, rankGrp, err)
+      CALL MPI_COMM_RANK(comm_client, rankGrp, error)
 
       IF (rankGrp .EQ. 0) THEN
-         PRINT*," Starting ORCHIDEE Tests"
+         PRINT*," Starting ORCHIDEE Client Tests ..."
       END IF