pkg/fizhi/fizhi_diagalarms.F

C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_diagalarms.F,v 1.1 2005/05/16 23:41:18 molod Exp $
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 ----------------

C-    2D/3D field diagnostics:
      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.e6 + hhmmss
       call set_alarm(tagname,nymdb,nhmsb,nincr)
      enddo

C-    Global/Regional statistics diagnostics:
      do n = 1,diagSt_nbLists
       write(tagname,'(A,I2.2)')'diagStg',n
       mmdd = int(diagSt_freq(n))
       hhmmss = int((diagSt_freq(n) - int(diagSt_freq(n)))*1.e6)
       nincr = mmdd * 1.e6 + hhmmss
       call set_alarm(tagname,nymdb,nhmsb,nincr)
      enddo

      return
      end
1	jmc	1.2	C $Header: /u/gcmpack/MITgcm/pkg/fizhi/fizhi_diagalarms.F,v 1.1 2005/05/16 23:41:18 molod Exp $
2	molod	1.1	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	jmc	1.2	C- 2D/3D field diagnostics:
41	molod	1.1	do n = 1,nlists
42			write(tagname,'(A,I2.2)')'diagtag',n
43			mmdd = int(freq(n))
44			hhmmss = int((freq(n) - int(freq(n)))*1.e6)
45	jmc	1.2	nincr = mmdd * 1.e6 + hhmmss
46			call set_alarm(tagname,nymdb,nhmsb,nincr)
47			enddo
48
49			C- Global/Regional statistics diagnostics:
50			do n = 1,diagSt_nbLists
51			write(tagname,'(A,I2.2)')'diagStg',n
52			mmdd = int(diagSt_freq(n))
53			hhmmss = int((diagSt_freq(n) - int(diagSt_freq(n)))*1.e6)
54			nincr = mmdd * 1.e6 + hhmmss
55	molod	1.1	call set_alarm(tagname,nymdb,nhmsb,nincr)
56			enddo
57
58			return
59			end