/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_utils.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_utils.F

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

revision 1.13 by edhill, Thu Jul 8 16:16:09 2004 UTC revision 1.14 by molod, Mon Jul 26 21:16:18 2004 UTC
# Line 8  CBOP 0 Line 8  CBOP 0
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
# Line 36  C     ipoint ..... DIAGNOSTIC NUMBER FRO Line 36  C     ipoint ..... DIAGNOSTIC NUMBER FRO
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)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22