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

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

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

revision 1.1 by heimbach, Mon May 14 22:07:27 2001 UTC revision 1.2 by cheisey, Thu Dec 19 13:12:42 2002 UTC
# Line 61  c     == local variables == Line 61  c     == local variables ==
61        integer ierr        integer ierr
62    
63  c     == end of interface ==  c     == end of interface ==
64    c     print *,'cal_toseconds: date',date
65    c     print *,'cal_toseconds: timeint',timeint
66    
67        check_sign_1 = sign(1,date(1))        check_sign_1 = sign(1,date(1))
68        check_sign_2 = sign(1,date(2))        check_sign_2 = sign(1,date(2))
69        if ((date(4) .eq. -1) .and.        if (((date(4) .eq. -1) .and.
70       &    (date(3) .eq.  0) .and.       &    (date(3) .eq.  0) .and.
71       &    (check_sign_1*check_sign_2 .ge. 0)) then       &    (check_sign_1*check_sign_2 .ge. 0)) .or.
72         &    usingModelCalendar) then
73          if ((date(1) .lt. 0) .or.          if ((date(1) .lt. 0) .or.
74       &      (date(2) .lt. 0)) then       &      (date(2) .lt. 0)) then
75            ndays  = -date(1)            ndays  = -date(1)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22