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

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

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

revision 1.8 by molod, Fri Jul 23 22:32:28 2004 UTC revision 1.9 by molod, Mon Jul 26 18:45:17 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "FIZHI_OPTIONS.h"
5        subroutine fizhi_init_chem(mythid,nozlats,nozlevs,ntimesoz,        subroutine fizhi_init_chem(mythid,nozlats,nozlevs,ntimesoz,
6       . ozlats,ozlevs,o3,       . ozlats,ozlevs,o3,
7       . nwatlats,nwatlevs,ntimesq,watlats,watlevs,water,       . nwatlats,nwatlevs,ntimesq,watlats,watlevs,water,
# Line 17  C OUTPUT: Line 18  C OUTPUT:
18  C  C
19  C***********************************************************************  C***********************************************************************
20        implicit none        implicit none
 #include "CPP_EEOPTIONS.h"  
21        integer mythid,nozlevs,nozlats,nwatlevs,nwatlats,Nrphys        integer mythid,nozlevs,nozlats,nwatlevs,nwatlats,Nrphys
22        integer ntimesoz,ntimesq        integer ntimesoz,ntimesq
23        _RL o3(nozlats,nozlevs,ntimesoz)        _RL o3(nozlats,nozlevs,ntimesoz)
# Line 27  C*************************************** Line 27  C***************************************
27        _RL pressure(Nrphys),methane(Nrphys),n2o(Nrphys)        _RL pressure(Nrphys),methane(Nrphys),n2o(Nrphys)
28        _RL co2,cfc11,cfc12,cfc22        _RL co2,cfc11,cfc12,cfc22
29    
30        real getcon        _RL getcon
31        integer kqz,koz        integer kqz,koz
32        call mdsfindunit( kqz, myThid )        call mdsfindunit( kqz, myThid )
33        call mdsfindunit( koz, myThid )        call mdsfindunit( koz, myThid )
# Line 62  C Line 62  C
62  C***********************************************************************  C***********************************************************************
63    
64        implicit none        implicit none
 #include "CPP_EEOPTIONS.h"  
65        integer  ku,nlat,nlev,ntime        integer  ku,nlat,nlev,ntime
66    
67        _RL qz(nlat,nlev,ntime)        _RL qz(nlat,nlev,ntime)
# Line 73  C*************************************** Line 72  C***************************************
72        integer lat        integer lat
73        integer lev        integer lev
74    
75        real voltomas        _RL voltomas
76        parameter ( voltomas = 0.622e-6 )        parameter ( voltomas = 0.622e-6 )
77    
78        open(ku,file='sage.data',form='formatted')        open(ku,file='sage.data',form='formatted')
# Line 130  C Line 129  C
129  C***********************************************************************  C***********************************************************************
130    
131        implicit none        implicit none
 #include "CPP_EEOPTIONS.h"  
132        integer  ku,nlat,nlev,ntime        integer  ku,nlat,nlev,ntime
133    
134        _RL   oz(nlat,nlev,ntime)        _RL   oz(nlat,nlev,ntime)
135        real o3(nlat)        _RL o3(nlat)
136        _RL lats(nlat)        _RL lats(nlat)
137        _RL levs(nlev)        _RL levs(nlev)
138    
# Line 194  C*         Climatological Annual and Glo Line 192  C*         Climatological Annual and Glo
192  C***********************************************************************  C***********************************************************************
193    
194        implicit none        implicit none
 #include "CPP_EEOPTIONS.h"  
195    
196        integer Nrphys        integer Nrphys
197        _RL n2o(Nrphys),methane(Nrphys)        _RL n2o(Nrphys),methane(Nrphys)
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22