/[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.3 by adcroft, Fri Jul 30 15:43:00 1999 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    
5    #ifdef ALLOW_KPP
6  C I.Fukumori 8/24/98  C I.Fukumori 8/24/98
7  CStartOfInterface  CStartOfInterface
8        SUBROUTINE SWFRAC(        SUBROUTINE SWFRAC(
# Line 42  C     output arguments Line 43  C     output arguments
43    
44  C     === Local variables ===  C     === Local variables ===
45        _RS facz        _RS facz
46        REAL  rfac(nwtype),a1(nwtype),a2(nwtype)        _RS rfac(nwtype),a1(nwtype),a2(nwtype)
47        INTEGER i        INTEGER i
48  C  C
49  C     Jerlov water type :  I       IA      IB      II      III  C     Jerlov water type :  I       IA      IB      II      III
# Line 64  C Line 65  C
65    
66        RETURN        RETURN
67        END        END
68    #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22