/[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.13 by jmc, Thu May 3 21:39:59 2007 UTC revision 1.14 by jmc, Tue Sep 4 16:49:44 2007 UTC
# Line 63  C     max number of different water type Line 63  C     max number of different water type
63        _RL rfac(nwtype),a1(nwtype),a2(nwtype)        _RL rfac(nwtype),a1(nwtype),a2(nwtype)
64        INTEGER i        INTEGER i
65  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
66        _RL     fac  c     _RL     fac
67        LOGICAL first, changed  c     LOGICAL first, changed
68        INTEGER count0, count1  c     INTEGER count0, count1
69        INTEGER jerl(12)  c     INTEGER jerl(12)
70        DATA jerl / 2 , 2 , 2 , 3 , 3 , 3 , 4 , 4 , 4 , 4 , 3 , 2 /  c     DATA jerl / 2 , 2 , 2 , 3 , 3 , 3 , 4 , 4 , 4 , 4 , 3 , 2 /
71  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
72  C  C
73  C     Jerlov water type :  I       IA      IB      II      III  C     Jerlov water type :  I       IA      IB      II      III
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22