/[MITgcm]/MITgcm/verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F
ViewVC logotype

Contents of /MITgcm/verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Fri Jun 4 16:20:00 2004 UTC (16 years, 1 month ago) by molod
Branch: MAIN
CVS Tags: checkpoint53d_post, checkpoint54a_pre, checkpoint54a_post, checkpoint54b_post, checkpoint54d_post, checkpoint54, checkpoint53g_post, checkpoint53f_post, checkpoint54c_post
Cleaning Up stuff for real fizhi - put ones for Held-Suarez here

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

  ViewVC Help
Powered by ViewVC 1.1.22