/[MITgcm]/MITgcm/pkg/fizhi/fizhi_diagalarms.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_diagalarms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by jmc, Sat May 21 22:39:32 2005 UTC revision 1.3 by molod, Thu Jun 2 22:56:52 2005 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "FIZHI_OPTIONS.h"  #include "FIZHI_OPTIONS.h"
5        subroutine fizhi_diagalarms (nymdb,nhmsb,myThid)        subroutine fizhi_diagalarms (myThid)
6    
7  C***********************************************************************          C***********************************************************************        
8  C  Purpose                                                                        C  Purpose                                                                      
# Line 11  C     Routine to Set Alarms for diagnost Line 11  C     Routine to Set Alarms for diagnost
11  C  C
12  C  Argument Description                                                          C  Argument Description                                                        
13  C  --------------------                                                            C  --------------------                                                          
 C     nymdb ..... Begining Date to Start Alarm Clock  
 C     nhmsb ..... Begining Time to Start Alarm Clock  
14  C     myThid .... Process ID  C     myThid .... Process ID
15  C  C
16    C NOTE: This routine ASSUMES that fizhi_init_fixed has been called
17    C       IT WILL NOT WORK OTHERWISE
18  C***********************************************************************          C***********************************************************************        
19        implicit none        implicit none
20  #include "SIZE.h"  #include "SIZE.h"
# Line 26  C*************************************** Line 26  C***************************************
26    
27  c Input Parameters  c Input Parameters
28  c ----------------  c ----------------
29        integer  nymdb,nhmsb,myThid        integer  myThid
30    
31  c Physics Frequencies  c Local variables
32  c -------------------  c -------------------
33        integer  nhmsf, n, nincr        integer  nhmsf, n, nincr
34        integer mmdd,hhmmss,nsecf2        integer mmdd,hhmmss,nsecf2
35        character *9 tagname        character *9 tagname
36                                                                                          integer  nymdb,nhmsb
37    
38  c Set Alarm Clocks  c Set Alarm Clocks
39  c ----------------  c ----------------
40    c To Set Begin Time for Alarm Clocks:
41    c  Increment  < 1 month - counting starts at model start time
42    c  Increment >= 1 month - counting starts at beginning of start month
43    c ----------------------------------------------------------------------
44    
45  C-    2D/3D field diagnostics:  C-    2D/3D field diagnostics:
46        do n = 1,nlists        do n = 1,nlists
47           if(freq(n).lt.100.) then
48            nymdb = nymd
49            nhmsb = nhms
50           else
51            nymdb = int(nymd/100) * 100 + 1
52            nhmsb = 0
53           endif
54         write(tagname,'(A,I2.2)')'diagtag',n         write(tagname,'(A,I2.2)')'diagtag',n
55         mmdd = int(freq(n))         mmdd = int(freq(n))
56         hhmmss = int((freq(n) - int(freq(n)))*1.e6)         hhmmss = int((freq(n) - int(freq(n)))*1.e6)
# Line 48  C-    2D/3D field diagnostics: Line 60  C-    2D/3D field diagnostics:
60    
61  C-    Global/Regional statistics diagnostics:  C-    Global/Regional statistics diagnostics:
62        do n = 1,diagSt_nbLists        do n = 1,diagSt_nbLists
63           if(freq(n).lt.100.) then
64            nymdb = nymd
65            nhmsb = nhms
66           else
67            nymdb = int(nymd/100) * 100 + 1
68            nhmsb = 0
69           endif
70         write(tagname,'(A,I2.2)')'diagStg',n         write(tagname,'(A,I2.2)')'diagStg',n
71         mmdd = int(diagSt_freq(n))         mmdd = int(diagSt_freq(n))
72         hhmmss = int((diagSt_freq(n) - int(diagSt_freq(n)))*1.e6)         hhmmss = int((diagSt_freq(n) - int(diagSt_freq(n)))*1.e6)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22