/[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.6 by heimbach, Mon Nov 13 16:32:58 2000 UTC revision 1.7 by heimbach, Tue Nov 14 03:43:37 2000 UTC
# Line 78  C Line 78  C
78       I     mytime, myiter, mythid )       I     mytime, myiter, mythid )
79        jwtype=jerl(count0)        jwtype=jerl(count0)
80  #else /* ALLOW_CALENDAR undef */  #else /* ALLOW_CALENDAR undef */
81        jwtype=3        jwtype=2
82  #endif /* ALLOW_CALENDAR */  #endif /* ALLOW_CALENDAR */
83    
84        DO i = 1,imax        DO i = 1,imax
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22