nesting_sannino/nest_parent/nest_parent_io_1.F

C $Header: /u/gcmpack/MITgcm_contrib/nesting_sannino/nest_parent/nest_parent_io_1.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_1
C     !INTERFACE:
      SUBROUTINE NEST_PARENT_IO_1(
     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_1( myTime, myIter, myThid )

      RETURN
      END
1	jmc	1.3	C $Header: /u/gcmpack/MITgcm_contrib/nesting_sannino/nest_parent/nest_parent_io_1.F,v 1.2 2009/10/23 19:42:00 sannino Exp $
2	heimbach	1.1	C $Name: $
3
4	jmc	1.3	#include "NEST_PARENT_OPTIONS.h"
5	heimbach	1.1
6			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7			CBOP
8	jmc	1.3	C !ROUTINE: NEST_PARENT_IO_1
9	heimbach	1.1	C !INTERFACE:
10			SUBROUTINE NEST_PARENT_IO_1(
11			I myTime,
12			I myIter,
13			I myThid )
14
15			C !DESCRIPTION:
16	jmc	1.3
17	heimbach	1.1	C !USES:
18			IMPLICIT NONE
19			#include "SIZE.h"
20			#include "EEPARAMS.h"
21			#include "PARAMS.h"
22
23			C !INPUT/OUTPUT PARAMETERS:
24	jmc	1.3	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	heimbach	1.1	INTEGER myThid
30			CEOP
31
32			C Write model state to binary file
33			CALL NEST_PARENT_WRITE_STATE_1( myTime, myIter, myThid )
34
35			RETURN
36			END