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

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

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

revision 1.2 by dimitri, Tue Sep 23 04:34:24 2003 UTC revision 1.3 by dimitri, Tue Sep 23 06:33:44 2003 UTC
# Line 64  c     == end of interface == Line 64  c     == end of interface ==
64        calerr = 0        calerr = 0
65        fac    = 1        fac    = 1
66    
67          check_sign = 1
68          if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
69         &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
70         &     check_sign = -1
71    
72        if (date(4) .le. 0) then        if (date(4) .le. 0) then
73          if (date(4) .ne. -1) then          if (date(4) .ne. -1) then
74            calerr = 1801            calerr = 1801
# Line 71  c     == end of interface == Line 76  c     == end of interface ==
76            if (date(3) .ne. 0) then            if (date(3) .ne. 0) then
77              calerr = 1802              calerr = 1802
78            else            else
             check_sign = sign(1,dble(date(1))*dble(date(2)))  
79              if (check_sign .lt. 0) then              if (check_sign .lt. 0) then
80                calerr = 1803                calerr = 1803
81              else              else
# Line 96  c     == end of interface == Line 100  c     == end of interface ==
100       &        (date(3) .ne. 2)) then       &        (date(3) .ne. 2)) then
101              calerr = 1806              calerr = 1806
102            else            else
             check_sign = sign(1,dble(date(1))*dble(date(2)))  
103              if (check_sign .lt. 0) then              if (check_sign .lt. 0) then
104                calerr = 1803                calerr = 1803
105              else              else
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22