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

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

Parent Directory | 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.6 by jmc,
Sun Apr  8 19:22:34 2012 UTC
 Line 1
  C $Header$
+ C $Name$
- #include "CAL_CPPOPTIONS.h"
+ #include "CAL_OPTIONS.h"
-       subroutine cal_ConvDate(
+       SUBROUTINE CAL_CONVDATE(
       I                         date,
       O                         yy, mm, dd, ss,
       O                         lp, wd,
-      I                         mythid
+      I                         myThid )
-      &                       )
- c     ==================================================================
+ C     ==================================================================
- c     SUBROUTINE cal_ConvDate
+ C     SUBROUTINE cal_ConvDate
- c     ==================================================================
+ C     ==================================================================
- c
+ C
- c     o Decompose the first part of a date array.
+ C     o Decompose the first part of a date array.
- c
+ C
- c     started: Christian Eckert eckert@mit.edu  30-Jun-1999
+ C     started: Christian Eckert eckert@mit.edu  30-Jun-1999
- c
+ C     changed: Christian Eckert eckert@mit.edu  29-Dec-1999
- c     changed: Christian Eckert eckert@mit.edu  29-Dec-1999
+ C              - restructured the original version in order to have a
- c
+ C                better interface to the MITgcmUV.
- c              - restructured the original version in order to have a
+ C              Christian Eckert eckert@mit.edu  03-Feb-2000
- c                better interface to the MITgcmUV.
+ C              - Introduced new routine and function names, cal_<NAME>,
- c
+ C                for verion 0.1.3.
- c              Christian Eckert eckert@mit.edu  03-Feb-2000
+ C              21-Sep-2003: fixed check_sign logic to work with
- c
+ C              negative intervals (menemenlis@jpl.nasa.gov)
- c              - Introduced new routine and function names, cal_<NAME>,
+ C
- c                for verion 0.1.3.
+ C     ==================================================================
- c
+ C     SUBROUTINE cal_ConvDate
- c     ==================================================================
+ C     ==================================================================
- c     SUBROUTINE cal_ConvDate
- c     ==================================================================
-       implicit none
+       IMPLICIT NONE
- c     == global variables ==
+ C     == global variables ==
+ #include "EEPARAMS.h"
  #include "cal.h"
- c     == routine arguments ==
+ C     == routine arguments ==
+       INTEGER date(4)
-       integer date(4)
+       INTEGER yy, mm, dd
-       integer mythid
+       INTEGER ss, lp, wd
+       INTEGER myThid
- c     == local variables ==
+ C     == local variables ==
-       integer yy
+       INTEGER fac
-       integer mm
+       INTEGER date_1
-       integer dd
+       INTEGER date_2
-       integer ss
+       INTEGER ierr
-       integer lp
+       LOGICAL wrong_sign
-       integer wd
+       CHARACTER*(MAX_LEN_MBUF) msgBuf
-       integer fac
+ C     == end of interface ==
-       integer date_1
-       integer date_2
+       IF ( cal_setStatus .LT. 1 ) THEN
-       integer check_sign_1
+         WRITE( msgBuf,'(2A,4I9)') 'CAL_CONVDATE: ',
-       integer check_sign_2
+      &       'date=',date(1),date(2),date(3),date(4)
-       integer ierr
+         CALL PRINT_ERROR( msgBuf, myThid )
+         WRITE( msgBuf,'(2A,I2,A)') 'CAL_CONVDATE: ',
- c     == end of interface ==
+      &    'called too early (cal_setStatus=',cal_setStatus,' )'
+         CALL PRINT_ERROR( msgBuf, myThid )
+         STOP 'ABNORMAL END: S/R CAL_CONVDATE'
+       ENDIF
+ C     Check the sign of the date.
        fac = 1
+       wrong_sign = ( (date(1).lt.0) .and. date(2).gt.0 )
+      &        .OR. ( (date(1).gt.0) .and. date(2).lt.0 )
- c     Check the sign of the date.
+       if ( wrong_sign ) then
+         ierr = 901
-       check_sign_1 = sign(1,date(1))
+         call cal_PrintError( ierr, myThid )
-       check_sign_2 = sign(1,date(2))
+         stop ' stopped in cal_ConvDate.'
+       else
-       if ( check_sign_1*check_sign_2 .ge. 0 ) then
+         if ( date(1).lt.0 .OR. date(2).lt.0 ) then
-         if (date(1) .eq. 0) then
-           date_1 = date(1)
-           if (date(2) .lt. 0) then
-             date_2 = -date(2)
-             fac    = -1
-           else
-             date_2 = date(2)
-             fac    = 1
-           endif
-         else if (date(1) .lt. 0) then
            date_1 = -date(1)
            date_2 = -date(2)
            fac    = -1
-Line 85 
 c     Check the sign of the date.
+Line 79 
 c     Check the sign of the date.
            date_2 = date(2)
            fac    = 1
          endif
-       else
-         ierr = 901
-         call cal_PrintError( ierr, mythid )
-         stop ' stopped in cal_ConvDate.'
        endif
- c     Decompose the entries.
+ C     Decompose the entries.
        if (date(4) .ne. -1) then
          yy = date_1/10000
          mm = mod(date_1/100,100)
-Line 104 
 c     Decompose the entries.
+Line 92 
 c     Decompose the entries.
          dd = date_1
        endif
        ss = mod(date_2,100) +
-      &     mod(date_2/100,100)*secondsperminute +
+      &     mod(date_2/100,100)*secondsPerMinute +
-      &     date_2/10000*secondsperhour
+      &     date_2/10000*secondsPerHour
- c     Include the sign.
+ C     Include the sign.
        yy = fac*yy
        mm = fac*mm
        dd = fac*dd
-Line 116 
 c     Include the sign.
+Line 104 
 c     Include the sign.
        lp = date(3)
        wd = date(4)
-       return
+       RETURN
-       end
+       END

 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.6
 Legend:



Removed from v.1.1
 


changed lines


 
Added in v.1.6
-Removed from v.1.1
+Added in v.1.6

	ViewVC Help
Powered by ViewVC 1.1.22