/[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.2 by molod, Tue Jun 15 16:06:03 2004 UTC revision 1.3 by molod, Thu Jun 17 21:45:29 2004 UTC
# Line 5  C $Name$ Line 5  C $Name$
5        subroutine swrio (nymd,nhms,ndswr,myid,istrip,npcs,        subroutine swrio (nymd,nhms,ndswr,myid,istrip,npcs,
6       .        pz,tz,qz,pkht,oz,co2,       .        pz,tz,qz,pkht,oz,co2,
7       .        albvisdr,albvisdf,albnirdr,albnirdf,       .        albvisdr,albvisdf,albnirdr,albnirdf,
8       .        dtradsw,dtswclr,radswg,swgclr,albedo,       .        dtradsw,dtswclr,radswg,swgclr,
9       .        fdifpar,fdirpar,osr,osrclr,       .        fdifpar,fdirpar,osr,osrclr,
10       .        im,jm,lm,sige,sig,dsig,ptop,       .        im,jm,lm,sige,sig,dsig,ptop,
11       .        nswcld,cldsw,cswmo,nswlz,swlz,       .        nswcld,cldsw,cswmo,nswlz,swlz,
# Line 41  c --------------- Line 41  c ---------------
41    
42        real   radswg(im,jm)            real   radswg(im,jm)    
43        real   swgclr(im,jm)            real   swgclr(im,jm)    
       real   albedo(im,jm)      
44        real  fdifpar(im,jm)            real  fdifpar(im,jm)    
45        real  fdirpar(im,jm)            real  fdirpar(im,jm)    
46        real      osr(im,jm)            real      osr(im,jm)    
# Line 92  c --------------- Line 91  c ---------------
91        real      tauhi  (im,jm)        real      tauhi  (im,jm)
92        real      tautype(im,jm,lm,3)        real      tautype(im,jm,lm,3)
93        real      tau    (im,jm,lm)        real      tau    (im,jm,lm)
94          real      albedo(im,jm)    
95    
96        real          PK(ISTRIP,lm)        real          PK(ISTRIP,lm)
97        real         qzl(ISTRIP,lm),  CLRO(ISTRIP,lm)        real         qzl(ISTRIP,lm),  CLRO(ISTRIP,lm)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22