Changeset 1965 for LMDZ5/trunk/libf/phylmd/oasis.F90

Timestamp:

Feb 11, 2014, 11:42:52 AM (10 years ago)

Author:

acaubel

Message:

AC : Modified to run with Oasis-MCT as coupler in IPSLCM6 coupled configuration

File:

• LMDZ5/trunk/libf/phylmd/oasis.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/oasis.F90

@@ -15 +15 @@
 
 #ifdef CPP_COUPLE
+! Use of Oasis-MCT coupler 
+#if defined CPP_OMCT
+  USE mod_prism
+! Use of Oasis3 coupler 
+#else 
   USE mod_prism_proto
   USE mod_prism_def_partition_proto
   USE mod_prism_get_proto
   USE mod_prism_put_proto
+#endif
 #endif
   
@@ -337 +343 @@
     
     DO i = 1, maxrecv
-      IF (inforecv(i)%action) THEN
+      IF (inforecv(i)%action .AND. inforecv(i)%nid .NE. -1) THEN
           field(:) = -99999.
           CALL prism_get_proto(inforecv(i)%nid, ktime, field(istart:iend), ierror)
@@ -421 +427 @@
 
     DO i = 1, maxsend
-      IF (infosend(i)%action) THEN
+      IF (infosend(i)%action .AND. infosend(i)%nid .NE. -1 ) THEN
           field = RESHAPE(tab_put(:,:,i),(/iim*jj_nb/))
           CALL prism_put_proto(infosend(i)%nid, ktime, field(istart:iend), ierror)