/[MITgcm]/MITgcm/pkg/cal/cal_fulldate.F
ViewVC logotype

Diff of /MITgcm/pkg/cal/cal_fulldate.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.3 by mlosch, Mon Apr 19 23:25:15 2004 UTC
# Line 78  c       Determine whether we are in a le Line 78  c       Determine whether we are in a le
78  c       Determine the day of the week.  c       Determine the day of the week.
79          call cal_TimePassed( refdate, date, numberofdays, mythid )          call cal_TimePassed( refdate, date, numberofdays, mythid )
80          date(4) = mod(numberofdays(1),7)+1          date(4) = mod(numberofdays(1),7)+1
81          else
82            call cal_PrintError( calerr, mythid )
83    cml   if you want the CheckDate error to stop the model uncomment
84    cml   the following line, otherwise there is just going to be a
85    cml   warning.
86    cml        stop ' stopped in cal_FullDate'
87        endif        endif
88    
89        return        return
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22