/[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.4 by edhill, Thu Oct 9 04:19:19 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CAL_CPPOPTIONS.h"  #include "CAL_OPTIONS.h"
5    
6        subroutine cal_ConvDate(        subroutine cal_ConvDate(
7       I                         date,       I                         date,
# Line 57  c     == local variables == Line 58  c     == local variables ==
58        integer date_1        integer date_1
59        integer date_2        integer date_2
60        integer ierr        integer ierr
61        _RL check_sign        integer check_sign
62    
63  c     == end of interface ==  c     == end of interface ==
64    
# Line 65  c     == end of interface == Line 66  c     == end of interface ==
66    
67  c     Check the sign of the date.  c     Check the sign of the date.
68    
69        check_sign = sign(1,dble(date(1))*dble(date(2)))        check_sign = 1
70          if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
71         &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
72         &     check_sign = -1
73    
74        if ( check_sign .ge. 0 ) then        if ( check_sign .ge. 0 ) then
75          if (date(1) .eq. 0) then          if (date(1) .eq. 0) then
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22