/[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.1 by heimbach, Mon May 14 22:07:26 2001 UTC revision 1.3.2.2 by adcroft, Tue Oct 7 20:46:37 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 27  c Line 28  c
28  c              - Introduced new routine and function names, cal_<NAME>,  c              - Introduced new routine and function names, cal_<NAME>,
29  c                for verion 0.1.3.  c                for verion 0.1.3.
30  c  c
31    c              21-Sep-2003: fixed check_sign logic to work with
32    c              negative intervals (menemenlis@jpl.nasa.gov)
33    c
34  c     ==================================================================  c     ==================================================================
35  c     SUBROUTINE cal_ConvDate  c     SUBROUTINE cal_ConvDate
36  c     ==================================================================  c     ==================================================================
# Line 53  c     == local variables == Line 57  c     == local variables ==
57        integer fac        integer fac
58        integer date_1        integer date_1
59        integer date_2        integer date_2
       integer check_sign_1  
       integer check_sign_2  
60        integer ierr        integer ierr
61          integer check_sign
62    
63  c     == end of interface ==  c     == end of interface ==
64    
# Line 63  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_1 = sign(1,date(1))        check_sign = 1
70        check_sign_2 = sign(1,date(2))        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_1*check_sign_2 .ge. 0 ) then        if ( check_sign .ge. 0 ) then
75          if (date(1) .eq. 0) then          if (date(1) .eq. 0) then
76            date_1 = date(1)            date_1 = date(1)
77            if (date(2) .lt. 0) then            if (date(2) .lt. 0) then
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3.2.2
  ViewVC Help
Powered by ViewVC 1.1.22