/[MITgcm]/MITgcm/model/src/swfrac.F
ViewVC logotype

Diff of /MITgcm/model/src/swfrac.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by adcroft, Fri Jul 30 15:43:00 1999 UTC revision 1.4 by adcroft, Tue Mar 14 20:28:16 2000 UTC
# Line 2  C  /u/gcmpack/models/MITgcmUV/model/src/ Line 2  C  /u/gcmpack/models/MITgcmUV/model/src/
2    
3  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
4    
 #ifdef ALLOW_KPP  
5  C I.Fukumori 8/24/98  C I.Fukumori 8/24/98
6  CStartOfInterface  CStartOfInterface
7        SUBROUTINE SWFRAC(        SUBROUTINE SWFRAC(
# Line 41  C     input arguments Line 40  C     input arguments
40  C     output arguments  C     output arguments
41        _RS swdk(imax)            ! short wave (radiation) fractional decay        _RS swdk(imax)            ! short wave (radiation) fractional decay
42    
43    #ifdef ALLOW_KPP
44    
45  C     === Local variables ===  C     === Local variables ===
46        _RS facz        _RS facz
47        _RS rfac(nwtype),a1(nwtype),a2(nwtype)        _RS rfac(nwtype),a1(nwtype),a2(nwtype)
# Line 63  C Line 64  C
64           ENDIF           ENDIF
65        ENDDO        ENDDO
66    
67    #endif
68    
69        RETURN        RETURN
70        END        END
 #endif  
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22