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

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

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

revision 1.7 by molod, Tue Jul 13 23:44:43 2004 UTC revision 1.8 by molod, Wed Jul 14 15:49:07 2004 UTC
# Line 46  c --------------- Line 46  c ---------------
46  c Local Variables  c Local Variables
47  c ---------------  c ---------------
48        integer   i,j,L,nn,nsecf        integer   i,j,L,nn,nsecf
49        integer   nb2,ntmstp,nymd2,nhms2        integer   ntmstp,nymd2,nhms2
50        real      getcon,grav,cp,undef,pcheck        real      getcon,grav,cp,undef
51        real      ra,alf,reffw,reffi,tminv        real      ra,alf,reffw,reffi,tminv
52    
53        parameter ( reffw = 10.0 )          parameter ( reffw = 10.0 )  
# Line 75  c --------------- Line 75  c ---------------
75        real TZL(ISTRIP,lm)        real TZL(ISTRIP,lm)
76        real OZL(ISTRIP,lm)        real OZL(ISTRIP,lm)
77        real PLE(ISTRIP,lm+1)        real PLE(ISTRIP,lm+1)
78        real OSZ(ISTRIP)        real COSZ(ISTRIP)
79        real dpstrip(ISTRIP,lm)        real dpstrip(ISTRIP,lm)
80    
81        real albuvdr(ISTRIP),albuvdf(ISTRIP)        real albuvdr(ISTRIP),albuvdf(ISTRIP)
# Line 1033  c-----pre-computed table Line 1033  c-----pre-computed table
1033    
1034  c-----include the pre-computed table for cai  c-----include the pre-computed table for cai
1035    
1036        include 'cai.dat'  #include "cai-dat.h"
1037        save caib,caif  #     save caib,caif
1038    
1039    
1040  c-----clouds within each of the high, middle, and low clouds are  c-----clouds within each of the high, middle, and low clouds are
# Line 2508  c-----temporary array Line 2508  c-----temporary array
2508  c********************************************************************  c********************************************************************
2509  c-----include co2 look-up table  c-----include co2 look-up table
2510    
2511        include 'cah.dat'  #include "cah-dat.h"
2512        save cah  #     save cah
2513    
2514  c********************************************************************  c********************************************************************
2515  c-----table look-up for the reduction of clear-sky solar  c-----table look-up for the reduction of clear-sky solar
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22