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

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

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

revision 1.2 by heimbach, Thu May 30 22:49:56 2002 UTC revision 1.3 by dimitri, Tue Sep 23 04:34:25 2003 UTC
# Line 352  c       Some useful numbers. Line 352  c       Some useful numbers.
352  c     A next set of checks of the user specifications.  c     A next set of checks of the user specifications.
353  c     Number of possible modelsteps per calendar day.  c     Number of possible modelsteps per calendar day.
354        modelstepsperday = cal_nStepDay(mythid)        modelstepsperday = cal_nStepDay(mythid)
355        if (modelstepsperday .eq. 0 ) then  cdm   if (modelstepsperday .eq. 0 ) then
356          ierr = 105  cdm     ierr = 105
357          call cal_PrintError( ierr, mythid )  cdm     call cal_PrintError( ierr, mythid )
358          stop ' stopped in cal_Set.'  cdm     stop ' stopped in cal_Set.'
359        endif  cdm   endif
360    
361  c     Complete the start date specification to get a full date array.  c     Complete the start date specification to get a full date array.
362        call cal_FullDate( modstartdate_1, modstartdate_2,        call cal_FullDate( modstartdate_1, modstartdate_2,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22