Changeset 1988 for branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioserver_para.F90

Timestamp:

2010-07-07T17:58:55+02:00 (14 years ago)

Author:

rblod

Message:

Some cleaning in External and harmonization off cpp keys with NEMO

File:

• branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioserver_para.F90 (modified) (4 diffs)

branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/XMLIO_SERVER/src/IOSERVER/mod_ioserver_para.F90

@@ -21 +21 @@
   USE mpitrace
   USE mod_ioserver_namelist
-#ifdef USE_OASIS
+#if defined key_oasis3 || defined key_oasis4
   USE mod_prism_get_comm 
 #endif 
@@ -39 +39 @@
        oasis_server_id=server_id
        oasis_client_id=client_id
-#ifdef USE_OASIS
+#if defined key_oasis3 || defined key_oasis4
        CALL prism_init_comp_proto (comp_id, oasis_server_id, ierr)
        CALL prism_get_intracomm(Comm_client_server,oasis_client_id,ierr)
@@ -83 +83 @@
   SUBROUTINE Finalize_parallel
   USE mod_ioserver_namelist
-#ifdef USE_OASIS
+#if defined key_oasis3 || defined key_oasis4
   USE mod_prism_proto
 #endif
@@ -91 +91 @@
     
     IF (using_oasis) THEN
-#ifdef USE_OASIS
+#if defined key_oasis3 || defined key_oasis4
       CALL prism_terminate_proto(ierr)
 #endif