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 |
|
|