/[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.18 by molod, Tue Sep 28 19:30:24 2004 UTC revision 1.19 by molod, Thu Sep 30 16:25:58 2004 UTC
# Line 102  C Compute pressure profile to get methan Line 102  C Compute pressure profile to get methan
102         do L = 2,Nrphys+1         do L = 2,Nrphys+1
103          pressure0(L)=pressure0(L-1)-dpphys0(1,1,L-1,1,1)/100.          pressure0(L)=pressure0(L-1)-dpphys0(1,1,L-1,1,1)/100.
104         enddo         enddo
105  C Now flip pressure to a top-down array to send to fizhi  C Now flip pressure to a top-down array to send to fizhi init chem
106         do L = 1,Nrphys+1         do L = 1,Nrphys+1
107          pressure(L)=pressure0(Nrphys+2-L)          pressure(L)=pressure0(Nrphys+2-L)
108         enddo         enddo
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22