** Warning **

Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.

	MITgcm MITgcm/​pkg/​cal/​cal_printdate.F	Source navigation Diff markup Identifier search General search
	Version: master Revert   Change

File indexing completed on 2018-03-02 18:38:16 UTC

6d54cf9ca1 Ed H* #include "CAL_OPTIONS.h"
a63ed37559 Patr* 
                       subroutine cal_PrintDate(
                      I                          caldate,
                      I                          mythid
                      &                        )
                 
                 c     ==================================================================
                 c     SUBROUTINE cal_PrintDate
                 c     ==================================================================
                 c
                 c     o Print a calendar date.
                 c
                 c     Purpose: Print a date as used by the calendar tool in some nice
d659697902 Patr* c              format by using the MITgcmuvs print routine
a63ed37559 Patr* c
                 c     started: Christian Eckert eckert@mit.edu  30-Jun-1999
                 c
                 c     changed: Christian Eckert eckert@mit.edu  19-Jan-2000
                 c
                 c              - inserted print statements
                 c
                 c              Christian Eckert eckert@mit.edu  03-Feb-2000
                 c
                 c              - Introduced new routine and function names, cal_<NAME>,
                 c                for verion 0.1.3.
                 c
                 c     ==================================================================
                 c     SUBROUTINE cal_PrintDate
                 c     ==================================================================
                 
                       implicit none
                 
                 c     == global variables ==
                 
                 #include "EEPARAMS.h"
                 
                 c     == routine arguments ==
                 
                 c     caldate - date in the format used by the calendar tool.
                 c     mythid  - thread number for this instance of the routine.
                 
                       integer caldate(4)
                       integer mythid
                 
                 c     == local variables ==
                 
019718029c Gael*       integer ierr, ioUnit
                       character*(max_len_mbuf) msgbuf
a63ed37559 Patr* 
                 c     == end of interface ==
                 
019718029c Gael*       ioUnit=standardMessageUnit
                 
a63ed37559 Patr*       if ( caldate(4) .gt. 0 ) then
                 c       Print the calendar date.
019718029c Gael*         write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2),
                      &                                 caldate(3), caldate(4)
                         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
a63ed37559 Patr* 
                       else if ( caldate(4) .eq. -1 ) then
                 c       Print the time interval.
019718029c Gael*         write(msgBuf,'(i10,i8,i3,i4)') caldate(1), caldate(2),
                      &                                 caldate(3), caldate(4)
                         CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
a63ed37559 Patr* 
                       else
                 
                         ierr = 2001
                         call cal_PrintError( ierr, mythid )
                         stop ' stopped in cal_PrintDate.'
                 
                       endif
                 
                       return
                       end

This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team