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

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

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

revision 1.12 by molod, Wed Jul 28 20:38:53 2004 UTC revision 1.15 by molod, Wed Aug 4 22:23:43 2004 UTC
# Line 778  c     o3 (band 5), and h2o (bands 1, 2, Line 778  c     o3 (band 5), and h2o (bands 1, 2,
778        save c1,c2,c3,o1,o2,o3        save c1,c2,c3,o1,o2,o3
779        save h11,h12,h13,h21,h22,h23,h81,h82,h83        save h11,h12,h13,h21,h22,h23,h81,h82,h83
780    
781        if (first) then  c     if (first) then
782    
783  c-----tables co2 and h2o are only used with 'high' option  c-----tables co2 and h2o are only used with 'high' option
784    
# Line 846  c-----always use table look-up for ozone Line 846  c-----always use table look-up for ozone
846           enddo           enddo
847          enddo          enddo
848    
849         first=.false.  c      first=.false.
850    
851        endif  c     endif
852    
853  c-----set the pressure at the top of the model atmosphere  c-----set the pressure at the top of the model atmosphere
854  c     to 1.0e-4 if it is zero  c     to 1.0e-4 if it is zero
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22