/[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.11 by heimbach, Thu Nov 6 22:01:43 2003 UTC revision 1.12 by mlosch, Sun Apr 18 20:36:56 2004 UTC
# Line 79  CEOP Line 79  CEOP
79    
80  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
81  ceh3 this should have an IF ( useCALENDAR ) THEN  ceh3 this should have an IF ( useCALENDAR ) THEN
82        myiter=0  CML(
83        call  cal_GetMonthsRec(  C     myIter = 0 makes cal_getMonthsRec always return count0=12
84       O     fac, first, changed, count0, count1,  C     so that jerl(count0) = 2.
85       I     mytime, myiter, mythid )  C     The following lines are meant to be an example of how to
86        jwtype=jerl(count0)  C     include time dependent water types. However, it would probably
87    C     make more sense to first think about a regionally varying
88    C     water type before implementing a time dependence.
89    CML      myiter=0
90    CML      call  cal_GetMonthsRec(
91    CML     O     fac, first, changed, count0, count1,
92    CML     I     mytime, myiter, mythid )
93    CML      jwtype=jerl(count0)
94    CML)
95          jwtype=2
96  #else /* ALLOW_CAL undef */  #else /* ALLOW_CAL undef */
97        jwtype=2        jwtype=2
98  #endif /* ALLOW_CAL */  #endif /* ALLOW_CAL */
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22