pkg/fizhi/fizhi_diagalarms.F

C $Header: $
C $Name:  $

#include "FIZHI_OPTIONS.h"
      subroutine fizhi_diagalarms (nymdb,nhmsb,myThid)

C***********************************************************************        
C  Purpose                                                                      
C  -------                                                                      
C     Routine to Set Alarms for diagnostic output
C
C  Argument Description                                                         
C  --------------------                                                          
C     nymdb ..... Begining Date to Start Alarm Clock 
C     nhmsb ..... Begining Time to Start Alarm Clock 
C     myThid .... Process ID
C
C***********************************************************************        
      implicit none
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "DIAGNOSTICS_SIZE.h"
#include "DIAGNOSTICS.h"
#include "chronos.h"

c Input Parameters
c ----------------
      integer  nymdb,nhmsb,myThid

c Physics Frequencies
c -------------------
      integer  nhmsf, n, nincr 
      integer mmdd,hhmmss,nsecf2
      character *9 tagname
                                                                                
c Set Alarm Clocks
c ----------------

      do n = 1,nlists
       write(tagname,'(A,I2.2)')'diagtag',n
       mmdd = int(freq(n))
       hhmmss = int((freq(n) - int(freq(n)))*1.e6)
       nincr = mmdd * 1.e4 + hhmmss
       call set_alarm(tagname,nymdb,nhmsb,nincr)
      enddo

      return
      end
1	C $Header: $
2	C $Name: $
3
4	#include "FIZHI_OPTIONS.h"
5	subroutine fizhi_diagalarms (nymdb,nhmsb,myThid)
6
7	C***********************************************************************
8	C Purpose
9	C -------
10	C Routine to Set Alarms for diagnostic output
11	C
12	C Argument Description
13	C --------------------
14	C nymdb ..... Begining Date to Start Alarm Clock
15	C nhmsb ..... Begining Time to Start Alarm Clock
16	C myThid .... Process ID
17	C
18	C***********************************************************************
19	implicit none
20	#include "SIZE.h"
21	#include "EEPARAMS.h"
22	#include "PARAMS.h"
23	#include "DIAGNOSTICS_SIZE.h"
24	#include "DIAGNOSTICS.h"
25	#include "chronos.h"
26
27	c Input Parameters
28	c ----------------
29	integer nymdb,nhmsb,myThid
30
31	c Physics Frequencies
32	c -------------------
33	integer nhmsf, n, nincr
34	integer mmdd,hhmmss,nsecf2
35	character *9 tagname
36
37	c Set Alarm Clocks
38	c ----------------
39
40	do n = 1,nlists
41	write(tagname,'(A,I2.2)')'diagtag',n
42	mmdd = int(freq(n))
43	hhmmss = int((freq(n) - int(freq(n)))*1.e6)
44	nincr = mmdd * 1.e4 + hhmmss
45	call set_alarm(tagname,nymdb,nhmsb,nincr)
46	enddo
47
48	return
49	end