Ignore:
Timestamp:
Feb 11, 2014, 11:42:52 AM (11 years ago)
Author:
acaubel
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/oasis.F90

    r1907 r1965  
    1515
    1616#ifdef CPP_COUPLE
     17! Use of Oasis-MCT coupler
     18#if defined CPP_OMCT
     19  USE mod_prism
     20! Use of Oasis3 coupler
     21#else
    1722  USE mod_prism_proto
    1823  USE mod_prism_def_partition_proto
    1924  USE mod_prism_get_proto
    2025  USE mod_prism_put_proto
     26#endif
    2127#endif
    2228 
     
    337343   
    338344    DO i = 1, maxrecv
    339       IF (inforecv(i)%action) THEN
     345      IF (inforecv(i)%action .AND. inforecv(i)%nid .NE. -1) THEN
    340346          field(:) = -99999.
    341347          CALL prism_get_proto(inforecv(i)%nid, ktime, field(istart:iend), ierror)
     
    421427
    422428    DO i = 1, maxsend
    423       IF (infosend(i)%action) THEN
     429      IF (infosend(i)%action .AND. infosend(i)%nid .NE. -1 ) THEN
    424430          field = RESHAPE(tab_put(:,:,i),(/iim*jj_nb/))
    425431          CALL prism_put_proto(infosend(i)%nid, ktime, field(istart:iend), ierror)
Note: See TracChangeset for help on using the changeset viewer.