/[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.1 by molod, Tue Jun 15 14:47:23 2004 UTC revision 1.2 by molod, Tue Jun 15 16:06:03 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "CPP_OPTIONS.h"
5        subroutine lwrio (nymd,nhms,istrip,npcs,        subroutine lwrio (nymd,nhms,istrip,npcs,
6       .                  pz,tz,qz,plz,plze,pkz,pkht,oz,co2,       .                  pz,tz,qz,plz,plze,pkz,pkht,oz,co2,
7       .                  cfc11,cfc12,cfc22,       .                  cfc11,cfc12,cfc22,
# Line 9  C $Name$ Line 10  C $Name$
10       .                  dtradlw,dlwdtg,dtradlwc,lwgclr,       .                  dtradlw,dlwdtg,dtradlwc,lwgclr,
11       .                  im,jm,lm,ptop,       .                  im,jm,lm,ptop,
12       .                  nlwcld,cldlw,clwmo,nlwlz,lwlz,       .                  nlwcld,cldlw,clwmo,nlwlz,lwlz,
13       .                  lpnt,qdiag,nd,       .                  lpnt,imstturb,qliqave,fccave,landtype)
      .                  imstturb,qliqave,fccave,landtype)  
14    
15        implicit none        implicit none
16    #ifdef ALLOW_DIAGNOSTICS
17  #include 'diagnostics.h'  #include 'diagnostics.h'
18    #endif
19    
20  c Input Variables  c Input Variables
21  c ---------------  c ---------------
22        integer nymd,nhms,istrip,npcs,nd        integer nymd,nhms,istrip,npcs
23    
24        integer im,jm,lm                integer im,jm,lm        
25        real  ptop                      real  ptop              
# Line 48  c --------------- Line 50  c ---------------
50    
51        real emissivity(im,jm,10)          real emissivity(im,jm,10)  
52        real        tgz(im,jm)            real        tgz(im,jm)    
       real      qdiag(im,jm,nd)    
53        logical   lpnt                    logical   lpnt            
54        integer   imstturb                integer   imstturb        
55        real    qliqave(im,jm,lm)          real    qliqave(im,jm,lm)  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22