/[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.14 by molod, Wed Jul 28 01:25:07 2004 UTC revision 1.17 by molod, Wed Aug 4 22:23:43 2004 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "FIZHI_OPTIONS.h"  #include "FIZHI_OPTIONS.h"
5        subroutine swrio (nymd,nhms,bi,bj,ndswr,myid,istrip,npcs,        subroutine swrio (nymd,nhms,bi,bj,ndswr,myid,istrip,npcs,
6       .        low_level,mid_level,       .        low_level,mid_level,im,jm,lm,
7       .        pz,plz,plze,dpres,pkht,pkz,tz,qz,oz,co2,       .        pz,plz,plze,dpres,pkht,pkz,tz,qz,oz,co2,
8       .        albvisdr,albvisdf,albnirdr,albnirdf,       .        albvisdr,albvisdf,albnirdr,albnirdf,
9       .        dtradsw,dtswclr,radswg,swgclr,       .        dtradsw,dtswclr,radswg,swgclr,
10       .        fdifpar,fdirpar,osr,osrclr,       .        fdifpar,fdirpar,osr,osrclr,
11       .        im,jm,lm,ptop,       .        ptop,nswcld,cldsw,cswmo,nswlz,swlz,
      .        nswcld,cldsw,cswmo,nswlz,swlz,  
12       .        lpnt,imstturb,qliqave,fccave,landtype,xlats,xlons)       .        lpnt,imstturb,qliqave,fccave,landtype,xlats,xlons)
13    
14        implicit none        implicit none
# Line 1031  c-----pre-computed table Line 1030  c-----pre-computed table
1030  c-----include the pre-computed table for cai  c-----include the pre-computed table for cai
1031    
1032  #include "cai-dat.h"  #include "cai-dat.h"
1033  c     save caib,caif        save caib,caif
1034    
1035    
1036  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 1544  c-----flux calculations Line 1543  c-----flux calculations
1543          enddo          enddo
1544         enddo         enddo
1545    
1546  c       call cldflx (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,          call cldflx (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,
1547  c    *               fclr,fall,fsdir,fsdif)       *               fclr,fall,fsdir,fsdif)
1548    
1549         do k= 1, np+1         do k= 1, np+1
1550          do j= 1, n          do j= 1, n
# Line 1915  c-----flux calculations Line 1914  c-----flux calculations
1914           fsdif(i,j) = 0.           fsdif(i,j) = 0.
1915          enddo          enddo
1916         enddo         enddo
1917  c       call cldflx (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,          call cldflx (m,n,np,ict,icb,cc,rr,tt,td,rs,ts,
1918  c    *               fclr,fall,fsdir,fsdif)       *               fclr,fall,fsdir,fsdif)
1919    
1920         do k= 1, np+1         do k= 1, np+1
1921          do j= 1, n          do j= 1, n
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22