8 |
C !ROUTINE: GETDIAG |
C !ROUTINE: GETDIAG |
9 |
|
|
10 |
C !INTERFACE: |
C !INTERFACE: |
11 |
SUBROUTINE GETDIAG (myThid,lev,ipoint,undef,qtmp) |
SUBROUTINE GETDIAG (myThid,levreal,ipoint,undef,qtmp) |
12 |
|
|
13 |
C !DESCRIPTION: |
C !DESCRIPTION: |
14 |
C Retrieve averaged model diagnostic |
C Retrieve averaged model diagnostic |
36 |
C undef ..... UNDEFINED VALUE |
C undef ..... UNDEFINED VALUE |
37 |
C bi ..... X-direction process(or) number |
C bi ..... X-direction process(or) number |
38 |
C bj ..... Y-direction process(or) number |
C bj ..... Y-direction process(or) number |
39 |
integer myThid,lev,ipoint |
integer myThid,ipoint |
40 |
_RL undef |
_RL undef |
41 |
|
|
42 |
C OUTPUT: |
C OUTPUT: |
43 |
C qtmp ..... AVERAGED DIAGNOSTIC QUANTITY |
C qtmp ..... AVERAGED DIAGNOSTIC QUANTITY |
44 |
_RL qtmp(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nr+Nrphys,Nsx,Nsy) |
_RL qtmp(1-OLx:sNx+Olx,1-Oly:sNy+Oly,Nr+Nrphys,Nsx,Nsy) |
45 |
|
_RL levreal |
46 |
|
|
47 |
_RL factor |
_RL factor |
48 |
integer i,j,ipnt,klev |
integer i,j,ipnt,klev |
49 |
integer bi,bj |
integer bi,bj |
50 |
|
integer lev |
51 |
|
|
52 |
|
lev = levreal |
53 |
if (ipoint.lt.1) go to 999 |
if (ipoint.lt.1) go to 999 |
54 |
|
|
55 |
klev = kdiag(ipoint) |
klev = kdiag(ipoint) |