/[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.1 by molod, Mon May 16 23:41:18 2005 UTC revision 1.2 by jmc, Sat May 21 22:39:32 2005 UTC
# Line 37  c ------------------- Line 37  c -------------------
37  c Set Alarm Clocks  c Set Alarm Clocks
38  c ----------------  c ----------------
39    
40    C-    2D/3D field diagnostics:
41        do n = 1,nlists        do n = 1,nlists
42         write(tagname,'(A,I2.2)')'diagtag',n         write(tagname,'(A,I2.2)')'diagtag',n
43         mmdd = int(freq(n))         mmdd = int(freq(n))
44         hhmmss = int((freq(n) - int(freq(n)))*1.e6)         hhmmss = int((freq(n) - int(freq(n)))*1.e6)
45         nincr = mmdd * 1.e4 + hhmmss         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         call set_alarm(tagname,nymdb,nhmsb,nincr)         call set_alarm(tagname,nymdb,nhmsb,nincr)
56        enddo        enddo
57    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22