nesting_sannino/nest_parent/nest_parent_io_2.F

C $Header: /u/gcmpack/MITgcm_contrib/nesting_sannino/nest_parent/nest_parent_io_2.F,v 1.2 2009/10/23 19:42:00 sannino 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
1	C $Header: /u/gcmpack/MITgcm_contrib/nesting_sannino/nest_parent/nest_parent_io_2.F,v 1.2 2009/10/23 19:42:00 sannino Exp $
2	C $Name: $
3
4	#include "NEST_PARENT_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP
8	C !ROUTINE: NEST_PARENT_IO_2
9	C !INTERFACE:
10	SUBROUTINE NEST_PARENT_IO_2(
11	I myTime,
12	I myIter,
13	I myThid )
14
15	C !DESCRIPTION:
16
17	C !USES:
18	IMPLICIT NONE
19	#include "SIZE.h"
20	#include "EEPARAMS.h"
21	#include "PARAMS.h"
22
23	C !INPUT/OUTPUT PARAMETERS:
24	C myTime :: Current time of simulation ( s )
25	C myIter :: Iteration number
26	C myThid :: my Thread Id number
27	_RL myTime
28	INTEGER myIter
29	INTEGER myThid
30	CEOP
31
32	C Write model state to binary file
33	CALL NEST_PARENT_WRITE_STATE_2( myTime, myIter, myThid )
34
35	RETURN
36	END