/[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.1 by adcroft, Tue May 18 18:01:13 1999 UTC revision 1.4 by adcroft, Tue Mar 14 20:28:16 2000 UTC
# Line 40  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        REAL  rfac(nwtype),a1(nwtype),a2(nwtype)        _RS rfac(nwtype),a1(nwtype),a2(nwtype)
48        INTEGER i        INTEGER i
49  C  C
50  C     Jerlov water type :  I       IA      IB      II      III  C     Jerlov water type :  I       IA      IB      II      III
# Line 62  C Line 64  C
64           ENDIF           ENDIF
65        ENDDO        ENDDO
66    
67    #endif
68    
69        RETURN        RETURN
70        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22