/[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.10 by edhill, Thu Oct 9 04:19:18 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  CBOP  CBOP
# Line 77  C Line 78  C
78  CEOP  CEOP
79    
80  #ifdef ALLOW_CALENDAR  #ifdef ALLOW_CALENDAR
81    ceh3 this should have an IF ( useCALENDAR ) THEN
82        myiter=0        myiter=0
83        call  cal_GetMonthsRec(        call  cal_GetMonthsRec(
84       O     fac, first, changed, count0, count1,       O     fac, first, changed, count0, count1,
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22