C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/nesting_sannino/nest_parent/nest_parent_io_2.F,v 1.3 2010/11/28 02:29:50 jmc Exp $
C $Name:  $

#include "NEST_PARENT_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: NEST_PARENT_IO_2
C     !INTERFACE:
      SUBROUTINE NEST_PARENT_IO_2(
     I     myTime,
     I     myIter,
     I     myThid )

C     !DESCRIPTION:

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     !INPUT/OUTPUT PARAMETERS:
C     myTime  :: Current time of simulation ( s )
C     myIter  :: Iteration number
C     myThid  :: my Thread Id number
      _RL     myTime
      INTEGER myIter
      INTEGER myThid
CEOP

C     Write model state to binary file
      CALL NEST_PARENT_WRITE_STATE_2( myTime, myIter, myThid )

      RETURN
      END