/[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.3 by molod, Thu Jun 10 20:17:17 2004 UTC revision 1.4 by molod, Thu Jun 10 20:53:19 2004 UTC
# Line 19  C            each tile [nchp,Nsx,Nsy] Line 19  C            each tile [nchp,Nsx,Nsy]
19  C  C
20  C***********************************************************************  C***********************************************************************
21        implicit none        implicit none
22  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
23        integer mythid,nozlevs,nozlats,nwatlevs,nwatlats,Nrphys        integer mythid,nozlevs,nozlats,nwatlevs,nwatlats,Nrphys
24        _RL oz(nozlats,nozlevs), water(nwatlats,nwatlevs)        _RL oz(nozlats,nozlevs), water(nwatlats,nwatlevs)
25        _RL ozlats(nozlats), ozlevs(nozlevs)        _RL ozlats(nozlats), ozlevs(nozlevs)
# Line 59  C Line 59  C
59  C***********************************************************************  C***********************************************************************
60    
61        implicit none        implicit none
62  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
63        integer  ku,nlat,nlev,ntime        integer  ku,nlat,nlev,ntime
64    
65        _RL   qz(nlat,nlev,ntime)        _RL   qz(nlat,nlev,ntime)
# Line 128  C Line 128  C
128  C***********************************************************************  C***********************************************************************
129    
130        implicit none        implicit none
131  #include "CPP_OPTIONS.h"  #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)
# Line 193  C*         Climatological Annual and Glo Line 193  C*         Climatological Annual and Glo
193  C***********************************************************************  C***********************************************************************
194    
195        implicit none        implicit none
196  #include "CPP_OPTIONS.h"  #include "CPP_EEOPTIONS.h"
197    
198        _RL n2o(Nrphys),methane(Nrphys)        _RL n2o(Nrphys),methane(Nrphys)
199        integer Nrphys        integer Nrphys
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22