/[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.6 by molod, Tue Jul 13 21:18:41 2004 UTC revision 1.9 by molod, Wed Jul 14 17:31:57 2004 UTC
# Line 14  C $Name$ Line 14  C $Name$
14    
15        implicit none        implicit none
16  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
17    #include "SIZE.h"
18    #include "diagnostics_SIZE.h"
19  #include "diagnostics.h"  #include "diagnostics.h"
20  #endif  #endif
21    
# Line 70  c --------------- Line 72  c ---------------
72        real SGMT4(ISTRIP),TSURF(ISTRIP),dsgmt4(ISTRIP)        real SGMT4(ISTRIP),TSURF(ISTRIP),dsgmt4(ISTRIP)
73        integer lwi(istrip)        integer lwi(istrip)
74    
75        real getcon,secday,convrt,pcheck        real getcon,secday,convrt
76    
77        logical high,  trace, cldwater        logical high,  trace, cldwater
78        data high /.true./        data high /.true./
# Line 770  c     o3 (band 5), and h2o (bands 1, 2, Line 772  c     o3 (band 5), and h2o (bands 1, 2,
772        logical first        logical first
773        data first /.true./        data first /.true./
774    
775  #include "h2o.tran3"  #include "h2o-tran3.h"
776  #include "co2.tran3"  #include "co2-tran3.h"
777  #include "o3.tran3"  #include "o3-tran3.h"
778    
779        save c1,c2,c3,o1,o2,o3        save c1,c2,c3,o1,o2,o3
780        save h11,h12,h13,h21,h22,h23,h81,h82,h83        save h11,h12,h13,h21,h22,h23,h81,h82,h83
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22