fizhi-gridalt-hs/code/fizhi_init_fixed.F

C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_init_fixed-fake.F,v 1.3 2004/05/05 00:39:21 edhill Exp $
C $Name:  $

       subroutine fizhi_init_fixed (myThid)
c-----------------------------------------------------------------------
c  Routine to initialise the fizhi package.
c  
c  Input: myThid       - Process number calling this routine
c
c  Notes: 
c   1) This routine is the interface to read input datasets and set
c      other fixed variables for fizhi
c      the datasets are:
c         vegetation (data for each tile at every grid point)
c         ozone (varies with lat, height and time - read it all in
c                   now and interpolate between values later)
c      the other fixed parameters are:
c         N2O, Methane (vary with space)
c         CO2, CFC11, CFC12, CFC22 (set to a global value)
c   2) This routine will also read the data.fizhi namelist interface
c      to obtain information about diagnostic selection.
c-----------------------------------------------------------------------
       implicit none
#include "CPP_OPTIONS.h"
#include "SIZE.h"
#include "fizhi_SIZE.h"
#include "land_SIZE.h"
#include "EEPARAMS.h"
#include "chemistry_coms.h"
#include "earth_coms.h"

       integer myThid

       integer bi, bj
       integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2

       im1 = 1-OLx
       im2 = sNx+OLx
       jm1 = 1-OLy
       jm2 = sNy+OLy
       idim1 = 1
       idim2 = sNx
       jdim1 = 1
       jdim2 = sNy

       do bj = myByLo(myThid), myByHi(myThid)
       do bi = myBxLo(myThid), myBxHi(myThid)
C Dummy routine - nothing to do for now
       enddo
       enddo

       return
       end
1	molod	1.1	C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_init_fixed-fake.F,v 1.3 2004/05/05 00:39:21 edhill Exp $
2			C $Name: $
3
4			subroutine fizhi_init_fixed (myThid)
5			c-----------------------------------------------------------------------
6			c Routine to initialise the fizhi package.
7			c
8			c Input: myThid - Process number calling this routine
9			c
10			c Notes:
11			c 1) This routine is the interface to read input datasets and set
12			c other fixed variables for fizhi
13			c the datasets are:
14			c vegetation (data for each tile at every grid point)
15			c ozone (varies with lat, height and time - read it all in
16			c now and interpolate between values later)
17			c the other fixed parameters are:
18			c N2O, Methane (vary with space)
19			c CO2, CFC11, CFC12, CFC22 (set to a global value)
20			c 2) This routine will also read the data.fizhi namelist interface
21			c to obtain information about diagnostic selection.
22			c-----------------------------------------------------------------------
23			implicit none
24			#include "CPP_OPTIONS.h"
25			#include "SIZE.h"
26			#include "fizhi_SIZE.h"
27			#include "land_SIZE.h"
28			#include "EEPARAMS.h"
29			#include "chemistry_coms.h"
30			#include "earth_coms.h"
31
32			integer myThid
33
34			integer bi, bj
35			integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2
36
37			im1 = 1-OLx
38			im2 = sNx+OLx
39			jm1 = 1-OLy
40			jm2 = sNy+OLy
41			idim1 = 1
42			idim2 = sNx
43			jdim1 = 1
44			jdim2 = sNy
45
46			do bj = myByLo(myThid), myByHi(myThid)
47			do bi = myBxLo(myThid), myBxHi(myThid)
48			C Dummy routine - nothing to do for now
49			enddo
50			enddo
51
52			return
53			end