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

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

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

revision 1.31 by jmc, Fri Dec 29 05:43:56 2006 UTC revision 1.32 by jmc, Fri Dec 29 23:57:15 2006 UTC
# Line 34  C     !USES: Line 34  C     !USES:
34        PARAMETER( NrMax = Nr )        PARAMETER( NrMax = Nr )
35  #endif  #endif
36    
   
37  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
38  C     listId  :: Diagnostics list number being written  C     listId  :: Diagnostics list number being written
39  C     myIter  :: current iteration number  C     myIter  :: current iteration number
# Line 52  C     ndId  :: diagnostics  Id number (i Line 51  C     ndId  :: diagnostics  Id number (i
51  C     mate  :: counter mate Id number (in available diagnostics list)  C     mate  :: counter mate Id number (in available diagnostics list)
52  C     ip    :: diagnostics  pointer to storage array  C     ip    :: diagnostics  pointer to storage array
53  C     im    :: counter-mate pointer to storage array  C     im    :: counter-mate pointer to storage array
54    C
55    C--   COMMON /LOCAL_DIAGNOSTICS_OUT/ local common block (for multi-threaded)
56    C     qtmp1 :: thread-shared temporary array (needs to be in common block):
57    C              to write a diagnostic field to file, copy it first from (big)
58    C              diagnostic storage qdiag into it.
59          COMMON /LOCAL_DIAGNOSTICS_OUT/ qtmp1
60          _RL qtmp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrMax,nSx,nSy)
61    
62        INTEGER i, j, k, lm        INTEGER i, j, k, lm
63        INTEGER bi, bj        INTEGER bi, bj
64        INTEGER md, ndId, ip, im        INTEGER md, ndId, ip, im
65        INTEGER mate, mVec        INTEGER mate, mVec
66        CHARACTER*8 parms1        CHARACTER*8 parms1
       _RL qtmp1(1-OLx:sNx+OLx,1-OLy:sNy+OLy,NrMax,nSx,nSy)  
67        _RL undef, getcon        _RL undef, getcon
68        _RL tmpLev        _RL tmpLev
69        EXTERNAL getcon        EXTERNAL getcon
# Line 475  C--     end of Processing Fld # md Line 481  C--     end of Processing Fld # md
481  C-    Note: temporary: since it's a pain to add more arguments to  C-    Note: temporary: since it's a pain to add more arguments to
482  C     all MDSIO S/R, uses instead this specific S/R to write only  C     all MDSIO S/R, uses instead this specific S/R to write only
483  C     meta files but with more informations in it.  C     meta files but with more informations in it.
             glf = globalFiles  
484              nRec = nfields(listId)*averageCycle(listId)              nRec = nfields(listId)*averageCycle(listId)
485              CALL MDS_WR_METAFILES(fn, prec, glf, .FALSE.,              CALL MDS_WR_METAFILES(fn, prec, glf, .FALSE.,
486       &              0, 0, nlevels(listId), ' ',       &              0, 0, nlevels(listId), ' ',
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22