/[MITgcm]/MITgcm/pkg/fizhi/fizhi_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_init_fixed.F

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

revision 1.2 by molod, Mon Jun 7 18:11:37 2004 UTC revision 1.3 by molod, Mon Jun 7 20:26:43 2004 UTC
# Line 17  c                   now and interpolate Line 17  c                   now and interpolate
17  c      the other fixed parameters are:  c      the other fixed parameters are:
18  c         N2O, Methane (vary with space)  c         N2O, Methane (vary with space)
19  c         CO2, CFC11, CFC12, CFC22 (set to a global value)  c         CO2, CFC11, CFC12, CFC22 (set to a global value)
20  c   2) This routine will also read the data.fizhi namelist interface  c   3) For now, the fizhi package contains the alarms and clocks
21  c      to obtain information about diagnostic selection.  c      routines, so this routine will also initialize the alarms.
22  c-----------------------------------------------------------------------  c-----------------------------------------------------------------------
23         implicit none         implicit none
24  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
# Line 28  c--------------------------------------- Line 28  c---------------------------------------
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "fizhi_chemistry_coms.h"  #include "fizhi_chemistry_coms.h"
30  #include "fizhi_earth_coms.h"  #include "fizhi_earth_coms.h"
31    #include "fizhi_land_coms.h"
32    #include "chronos.h"
33    
34         integer myThid         integer myThid
35    
36         integer bi, bj         integer bi, bj
37         integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2         integer im1, im2, jm1, jm2, idim1, idim2, jdim1, jdim2
38           integer nymdb,nhmsb
39           character*40 vegdata
40    
41         im1 = 1-OLx         im1 = 1-OLx
42         im2 = sNx+OLx         im2 = sNx+OLx
# Line 42  c--------------------------------------- Line 46  c---------------------------------------
46         idim2 = sNx         idim2 = sNx
47         jdim1 = 1         jdim1 = 1
48         jdim2 = sNy         jdim2 = sNy
49           nymdb = nymd0
50           nhmsb = nhms0
51    
52           call fizhi_alarms(nymdb,nhmsb,deltaTClock)
53           call fizhi_init_veg ( mythid, vegdata,idim2,jdim2,Nsx,Nsy,maxtyp,
54         .            surftype,tilefrac,igrd,ityp,chfr )
55    
56    C Compute pressure profile to get methane and n2o values (bottom-up)
57         do bj = myByLo(myThid), myByHi(myThid)         do bj = myByLo(myThid), myByHi(myThid)
58         do bi = myBxLo(myThid), myBxHi(myThid)         do bi = myBxLo(myThid), myBxHi(myThid)
59  C Dummy routine - nothing to do for now  
60         enddo         enddo
61         enddo         enddo
62    
63           call fizhi_init_chem(mythid,nozlats,nozlevs,ozlats,ozlevs,
64         . ozone,nwatlats,nwatlevs,watlats,watlevs,water,
65         . Nrphys,pressure,n20,methane,co2,cfc11,cfc12,cfc22)
66    
67         return         return
68         end         end
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22