/[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.9 by cnh, Wed Sep 26 18:09:16 2001 UTC revision 1.9.12.1 by cheisey, Fri Dec 27 15:09:44 2002 UTC
# Line 81  CEOP Line 81  CEOP
81        call  cal_GetMonthsRec(        call  cal_GetMonthsRec(
82       O     fac, first, changed, count0, count1,       O     fac, first, changed, count0, count1,
83       I     mytime, myiter, mythid )       I     mytime, myiter, mythid )
84    c     print *,'swfrac: fac',fac
85    c     print *,'swfrac: first',first
86    c     print *,'swfrac: changed',changed
87    c     print *,'swfrac: count0',count0
88    c     print *,'swfrac: count1',count1
89    c     print *,'swfrac: myIter',myIter
90        jwtype=jerl(count0)        jwtype=jerl(count0)
91  #else /* ALLOW_CALENDAR undef */  #else /* ALLOW_CALENDAR undef */
92        jwtype=2        jwtype=2
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.9.12.1
  ViewVC Help
Powered by ViewVC 1.1.22