/[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.10 by molod, Wed Jul 14 17:31:57 2004 UTC revision 1.11 by molod, Fri Jul 16 20:08:08 2004 UTC
# Line 771  c*************************************** Line 771  c***************************************
771    
772  c-----Explicit Inline Directives  c-----Explicit Inline Directives
773    
774  #if CRAY  #ifdef CRAY
775  #if f77  #ifdef f77
776  cfpp$ expand (expmn)  cfpp$ expand (expmn)
777  #endif  #endif
778  #endif  #endif
# Line 1231  c*************************************** Line 1231  c***************************************
1231    
1232  c-----Explicit Inline Directives  c-----Explicit Inline Directives
1233    
1234  #if CRAY  #ifdef CRAY
1235  #if f77  #ifdef f77
1236  cfpp$ expand (deledd)  cfpp$ expand (deledd)
1237  cfpp$ expand (sagpol)  cfpp$ expand (sagpol)
1238  cfpp$ expand (expmn)  cfpp$ expand (expmn)
# Line 1640  c*************************************** Line 1640  c***************************************
1640    
1641  c-----Explicit Inline Directives    c-----Explicit Inline Directives  
1642        
1643  #if CRAY  #ifdef CRAY
1644  #if f77    #ifdef f77  
1645  cfpp$ expand (deledd)  cfpp$ expand (deledd)
1646  cfpp$ expand (sagpol)  cfpp$ expand (sagpol)
1647  #endif    #endif  
# Line 1955  c*************************************** Line 1955  c***************************************
1955    
1956  c-----Explicit Inline Directives    c-----Explicit Inline Directives  
1957        
1958  #if CRAY  #ifdef CRAY
1959  #if f77    #ifdef f77  
1960  cfpp$ expand (expmn)  cfpp$ expand (expmn)
1961  #endif    #endif  
1962  #endif  #endif
# Line 2079  c*************************************** Line 2079  c***************************************
2079    
2080  c-----Explicit Inline Directives    c-----Explicit Inline Directives  
2081        
2082  #if CRAY  #ifdef CRAY
2083  #if f77    #ifdef f77  
2084  cfpp$ expand (expmn)  cfpp$ expand (expmn)
2085  #endif    #endif  
2086  #endif  #endif
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22