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

Diff of /MITgcm/pkg/cal/cal_convdate.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:45 2003 UTC
# Line 57  c     == local variables == Line 57  c     == local variables ==
57        integer date_1        integer date_1
58        integer date_2        integer date_2
59        integer ierr        integer ierr
60        _RL check_sign        integer check_sign
61    
62  c     == end of interface ==  c     == end of interface ==
63    
# Line 65  c     == end of interface == Line 65  c     == end of interface ==
65    
66  c     Check the sign of the date.  c     Check the sign of the date.
67    
68        check_sign = sign(1,dble(date(1))*dble(date(2)))        check_sign = 1
69          if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
70         &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
71         &     check_sign = -1
72    
73        if ( check_sign .ge. 0 ) then        if ( check_sign .ge. 0 ) then
74          if (date(1) .eq. 0) then          if (date(1) .eq. 0) then
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22