/[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.5 by molod, Mon Jul 12 21:33:37 2004 UTC revision 1.6 by molod, Tue Jul 13 21:18:41 2004 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    #include "PACKAGES_CONFIG.h"
6        subroutine lwrio (nymd,nhms,bi,bj,istrip,npcs,low_level,mid_level,        subroutine lwrio (nymd,nhms,bi,bj,istrip,npcs,low_level,mid_level,
7       .                  pz,plz,plze,dpres,pkht,pkz,tz,qz,oz,       .                  pz,plz,plze,dpres,pkht,pkz,tz,qz,oz,
8       .                  co2,cfc11,cfc12,cfc22,methane,n2o,emissivity,       .                  co2,cfc11,cfc12,cfc22,methane,n2o,emissivity,
# Line 13  C $Name$ Line 14  C $Name$
14    
15        implicit none        implicit none
16  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
17  #include 'diagnostics.h'  #include "diagnostics.h"
18  #endif  #endif
19    
20  c Input Variables  c Input Variables
# Line 769  c     o3 (band 5), and h2o (bands 1, 2, Line 770  c     o3 (band 5), and h2o (bands 1, 2,
770        logical first        logical first
771        data first /.true./        data first /.true./
772    
773        include "h2o.tran3"  #include "h2o.tran3"
774        include "co2.tran3"  #include "co2.tran3"
775        include "o3.tran3"  #include "o3.tran3"
776    
777        save c1,c2,c3,o1,o2,o3        save c1,c2,c3,o1,o2,o3
778        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.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22