/[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.15 by molod, Mon Jul 26 18:45:17 2004 UTC revision 1.16 by molod, Wed Jul 28 01:25:07 2004 UTC
# Line 90  C Compute pressure profile to get methan Line 90  C Compute pressure profile to get methan
90    
91         pressure(1)=1000.         pressure(1)=1000.
92         do L = 2,Nrphys+1         do L = 2,Nrphys+1
93          pressure(L)=pressure(L-1)-dpphys0(1,1,L-1,1,1)          pressure(L)=pressure(L-1)-dpphys0(1,1,L-1,1,1)/100.
94         enddo         enddo
95    
96         call fizhi_init_chem(mythid,         call fizhi_init_chem(mythid,
# Line 98  C Compute pressure profile to get methan Line 98  C Compute pressure profile to get methan
98       .      nlatsq,nlevsq,ntimesq,latsq,levsq,stratq,       .      nlatsq,nlevsq,ntimesq,latsq,levsq,stratq,
99       .      Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22)       .      Nrphys,pressure,n2o,methane,co2,cfc11,cfc12,cfc22)
100    
101           do bj = myByLo(myThid), myByHi(myThid)
102           do bi = myBxLo(myThid), myBxHi(myThid)
103            do j=jm1,jm2
104            do i=im1,im2
105             phis_var(i,j,bi,bj) = 0.
106            enddo
107            enddo
108           enddo
109           enddo
110    
111         return         return
112         end         end
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22