nesting_sannino/nest_child/nest_child_init_varia.F

C $Header: /u/gcmpack/MITgcm/pkg/nest_child/nest_child_init.F,v 1.0 2005/07/18 23:05:09 gianamria sannino Exp $
C $Name:  $

#include "NEST_CHILD_OPTIONS.h"
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
CBOP 0
C     !ROUTINE: NEST_CHILD_INIT_VARIA

C     !INTERFACE:
      SUBROUTINE NEST_CHILD_INIT_VARIA( myThid )

C     !DESCRIPTION:
C     Routine to initialize NEST_CHILD parameters and variables.

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

C     !INPUT PARAMETERS:
      INTEGER myThid
CEOP

C     !LOCAL VARIABLES:
#ifdef ALLOW_NEST_CHILD

      PASSI = 0

#endif /* ALLOW_NEST_CHILD */

      return
      end
1	heimbach	1.1	C $Header: /u/gcmpack/MITgcm/pkg/nest_child/nest_child_init.F,v 1.0 2005/07/18 23:05:09 gianamria sannino Exp $
2			C $Name: $
3
4			#include "NEST_CHILD_OPTIONS.h"
5			C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
6			CBOP 0
7			C !ROUTINE: NEST_CHILD_INIT_VARIA
8
9			C !INTERFACE:
10			SUBROUTINE NEST_CHILD_INIT_VARIA( myThid )
11
12			C !DESCRIPTION:
13			C Routine to initialize NEST_CHILD parameters and variables.
14
15			C !USES:
16			IMPLICIT NONE
17			#include "SIZE.h"
18			#include "EEPARAMS.h"
19			#include "PARAMS.h"
20			#include "GRID.h"
21			#include "NEST_CHILD.h"
22			#include "NEST_CHILD_PARAMS.h"
23
24			C !INPUT PARAMETERS:
25			INTEGER myThid
26			CEOP
27
28			C !LOCAL VARIABLES:
29			#ifdef ALLOW_NEST_CHILD
30
31			PASSI = 0
32
33			#endif /* ALLOW_NEST_CHILD */
34
35			return
36			end