nesting_sannino/nest_parent/nest_parent_init_varia.F

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

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

C     !INTERFACE:
      SUBROUTINE NEST_PARENT_INIT_VARIA( myThid )

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

C     !USES:
      IMPLICIT NONE
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "NEST_PARENT.h"
#include "NEST_PARENT_PARAMS.h"

C     !INPUT PARAMETERS:
      INTEGER myThid
CEOP

C     !LOCAL VARIABLES:
#ifdef ALLOW_NEST_PARENT

C

#endif /* ALLOW_NEST_PARENT */

      return
      end
1	C $Header: /u/gcmpack/MITgcm/pkg/nest_parent/nest_parent_init.F,v 1.0 2005/07/18 23:05:09 gianamria sannino Exp $
2	C $Name: $
3
4	#include "NEST_PARENT_OPTIONS.h"
5	C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-\|--+----\|
6	CBOP 0
7	C !ROUTINE: NEST_PARENT_INIT_VARIA
8
9	C !INTERFACE:
10	SUBROUTINE NEST_PARENT_INIT_VARIA( myThid )
11
12	C !DESCRIPTION:
13	C Routine to initialize NEST_PARENT 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_PARENT.h"
22	#include "NEST_PARENT_PARAMS.h"
23
24	C !INPUT PARAMETERS:
25	INTEGER myThid
26	CEOP
27
28	C !LOCAL VARIABLES:
29	#ifdef ALLOW_NEST_PARENT
30
31	C
32
33	#endif /* ALLOW_NEST_PARENT */
34
35	return
36	end