C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/nesting_sannino/nest_child/nest_child_io.F,v 1.3 2010/11/28 02:11:16 jmc Exp $
C $Name:  $

#include "NEST_CHILD_OPTIONS.h"

C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP
C     !ROUTINE: NEST_CHILD_IO

C     !INTERFACE:
      SUBROUTINE NEST_CHILD_IO(
     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 :: Thread number for this instance of the routine.
      _RL     myTime
      INTEGER myIter
      INTEGER myThid
CEOP

#ifdef ALLOW_NEST_CHILD

      IF ( useNEST_CHILD) THEN
         CALL NEST_CHILD_WRITE_STATE( myTime, myIter, myThid )
      ENDIF

#endif /* ALLOW_NEST_CHILD */

      RETURN
      END