C  /u/gcmpack/MITgcm/pkg/oasis/oasis_restart.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_RESTART ( 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:
c	REAL(kind=ip_realwp_p),DIMENSION(sNx,sNy) :: VARxOASIS
       INTEGER itapsec


#ifdef ALLOW_OASIS

        itapsec = INT(myTime) - deltaTClock  !!!** ATTENZIONE delicato x accoppiamento **
 


	CALL PRISM_PUT_RESTART_PROTO(il_var_id_out(1),itapsec,ierror)
        IF (ierror .NE. PRISM_Ok ) THEN
		STOP 'ERROR IN OASIS_RESTART'
	ENDIF

#endif /* ALLOW_OASIS */

      return
      end