/[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.3 by molod, Thu Jun 2 22:56:52 2005 UTC revision 1.4 by molod, Mon Oct 3 18:46:50 2005 UTC
# Line 34  c ------------------- Line 34  c -------------------
34        integer mmdd,hhmmss,nsecf2        integer mmdd,hhmmss,nsecf2
35        character *9 tagname        character *9 tagname
36        integer  nymdb,nhmsb        integer  nymdb,nhmsb
37          integer absfreq
38    
39  c Set Alarm Clocks  c Set Alarm Clocks
40  c ----------------  c ----------------
# Line 44  c -------------------------------------- Line 45  c --------------------------------------
45    
46  C-    2D/3D field diagnostics:  C-    2D/3D field diagnostics:
47        do n = 1,nlists        do n = 1,nlists
48         if(freq(n).lt.100.) then         absfreq = abs(freq(n))
49           if(absfreq.lt.100.) then
50          nymdb = nymd          nymdb = nymd
51          nhmsb = nhms          nhmsb = nhms
52         else         else
# Line 52  C-    2D/3D field diagnostics: Line 54  C-    2D/3D field diagnostics:
54          nhmsb = 0          nhmsb = 0
55         endif         endif
56         write(tagname,'(A,I2.2)')'diagtag',n         write(tagname,'(A,I2.2)')'diagtag',n
57         mmdd = int(freq(n))         mmdd = int(absfreq)
58         hhmmss = int((freq(n) - int(freq(n)))*1.e6)         hhmmss = int((absfreq - int(absfreq))*1.e6)
59         nincr = mmdd * 1.e6 + hhmmss         nincr = mmdd * 1.e6 + hhmmss
60         call set_alarm(tagname,nymdb,nhmsb,nincr)         call set_alarm(tagname,nymdb,nhmsb,nincr)
61        enddo        enddo
62    
63  C-    Global/Regional statistics diagnostics:  C-    Global/Regional statistics diagnostics:
64        do n = 1,diagSt_nbLists        do n = 1,diagSt_nbLists
65         if(freq(n).lt.100.) then         absfreq = abs(diagSt_freq(n))
66           if(absfreq.lt.100.) then
67          nymdb = nymd          nymdb = nymd
68          nhmsb = nhms          nhmsb = nhms
69         else         else
# Line 68  C-    Global/Regional statistics diagnos Line 71  C-    Global/Regional statistics diagnos
71          nhmsb = 0          nhmsb = 0
72         endif         endif
73         write(tagname,'(A,I2.2)')'diagStg',n         write(tagname,'(A,I2.2)')'diagStg',n
74         mmdd = int(diagSt_freq(n))         mmdd = int(absfreq)
75         hhmmss = int((diagSt_freq(n) - int(diagSt_freq(n)))*1.e6)         hhmmss = int((absfreq - int(absfreq))*1.e6)
76         nincr = mmdd * 1.e6 + hhmmss         nincr = mmdd * 1.e6 + hhmmss
77         call set_alarm(tagname,nymdb,nhmsb,nincr)         call set_alarm(tagname,nymdb,nhmsb,nincr)
78        enddo        enddo
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22