nesting_sannino/nest_child/nest_child_io.F

C $Header: /u/gcmpack/MITgcm_contrib/nesting_sannino/nest_child/nest_child_io.F,v 1.2 2009/10/23 19:44:02 sannino 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
1	C $Header: /u/gcmpack/MITgcm_contrib/nesting_sannino/nest_child/nest_child_io.F,v 1.2 2009/10/23 19:44:02 sannino Exp $
2	C $Name: $
3
4	#include "NEST_CHILD_OPTIONS.h"
5
6	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
7	CBOP
8	C !ROUTINE: NEST_CHILD_IO
9
10	C !INTERFACE:
11	SUBROUTINE NEST_CHILD_IO(
12	I myTime,
13	I myIter,
14	I myThid )
15
16	C !DESCRIPTION:
17
18	C !USES:
19	IMPLICIT NONE
20	#include "SIZE.h"
21	#include "EEPARAMS.h"
22	#include "PARAMS.h"
23
24	C !INPUT/OUTPUT PARAMETERS:
25	C myTime :: Current time of simulation ( s )
26	C myIter :: Iteration number
27	C myThid :: Thread number for this instance of the routine.
28	_RL myTime
29	INTEGER myIter
30	INTEGER myThid
31	CEOP
32
33	#ifdef ALLOW_NEST_CHILD
34
35	IF ( useNEST_CHILD) THEN
36	CALL NEST_CHILD_WRITE_STATE( myTime, myIter, myThid )
37	ENDIF
38
39	#endif /* ALLOW_NEST_CHILD */
40
41	RETURN
42	END