/[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.3 by dimitri, Tue Sep 23 04:34:25 2003 UTC revision 1.7 by dimitri, Thu Dec 18 06:38:42 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_ToSeconds(        subroutine cal_ToSeconds(
7       I                          date,       I                          date,
# Line 55  c     == routine arguments == Line 56  c     == routine arguments ==
56    
57  c     == local variables ==  c     == local variables ==
58    
59        integer fac        _RL     fac, nsecs, ndays
60        integer ndays        integer ierr, check_sign, hhmmss
       integer nsecs  
       integer hhmmss  
       integer ierr  
       _RL check_sign  
61    
62  c     == end of interface ==  c     == end of interface ==
63  c     print *,'cal_toseconds: date',date  c     print *,'cal_toseconds: date',date
64  c     print *,'cal_toseconds: timeint',timeint  c     print *,'cal_toseconds: timeint',timeint
65    
66        check_sign = sign(1,dble(date(1))*dble(date(2)))        check_sign = 1
67          if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
68         &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
69         &     check_sign = -1
70    
71        if (((date(4) .eq. -1) .and.        if (((date(4) .eq. -1) .and.
72       &    (date(3) .eq.  0) .and.       &    (date(3) .eq.  0) .and.
73       &    (check_sign .ge. 0)) .or.       &    (check_sign .ge. 0)) .or.
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22