C  /u/gcmpack/MITgcm/pkg/oasis/oasis_put.F,v 1.0 2005/07/18 23:05:09 Gianmaria Sannino Exp
C $Name:  $
cgm(
#include "CPP_EEOPTIONS.h"
cgm)
#include "OASIS_OPTIONS.h"
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP 0
C     !ROUTINE: OASIS_PUT

 	SUBROUTINE OASIS_PUT ( myTime, myIter, myThid )




C     !DESCRIPTION:
C     Declare fields received and sent to OASIS

C     !USES:
      USE mod_kinds_model
      USE mod_prism_proto
      USE mod_prism_def_partition_proto
      USE mod_prism_put_proto
      USE mod_prism_get_proto
c      USE mod_prism_grids_writing
      IMPLICIT NONE

#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "PARAMS.h"
#include "GRID.h"
cgmoasis(
#include "OASIS.h"
#include "OASIS_PARAMS.h"
cgmoasis)
C     !INPUT PARAMETERS:
      INTEGER myThid
      INTEGER myIter
      _RL     myTime

CEOP

C     !LOCAL VARIABLES:
	REAL(kind=ip_realwp_p),DIMENSION(sNx,sNy) :: VARxOASIS
       INTEGER itapsec


#ifdef ALLOW_OASIS

        VARxOASIS(1:sNx,1:sNy) = maskC(1:sNx,1:sNy,1,1,1)   !!float(mpiMyId)
        itapsec = INT(myTime) - deltaTClock  !!!** ATTENZIONE delicato x accoppiamento **
 
c	CALL PRISM_PUT_PROTO(il_var_id_out(2),itapsec,VARxOASIS,ierror)

 1002 FORMAT(/,'Pb in writing ',A8,/,'Time is ',I8,/,' Error code is ',I2)
#endif /* ALLOW_OASIS */

      return
      end