/[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.12 by molod, Thu Aug 5 20:09:48 2004 UTC revision 1.13 by molod, Thu Aug 5 20:11:11 2004 UTC
# Line 170  c ------------------------------------- Line 170  c -------------------------------------
170  C Note: 2 quantities in Ozone Dataset  C Note: 2 quantities in Ozone Dataset
171        nrec = lev+(time-1)*nlev*2          nrec = lev+(time-1)*nlev*2  
172        read(ku,rec=nrec) o3        read(ku,rec=nrec) o3
173    #if defined( _BYTESWAPIO )
174        call mds_byteswapr4(nlat,o3)        call mds_byteswapr4(nlat,o3)
175    #endif
176             do lat=1,nlat             do lat=1,nlat
177             oz(lat,nlev-lev+1,time) = o3(lat)             oz(lat,nlev-lev+1,time) = o3(lat)
178             enddo             enddo
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22