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

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

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

revision 1.10 by jmc, Thu Apr 2 18:52:27 2009 UTC revision 1.12 by jmc, Sun Jan 3 00:42:45 2010 UTC
# Line 67  C =============== Line 67  C ===============
67        INTEGER region2fill(0:nRegions)        INTEGER region2fill(0:nRegions)
68        _RL     scaleFact        _RL     scaleFact
69        _RL     gridField(sNx*sNy,nlevs), gridFrac(sNx*sNy)        _RL     gridField(sNx*sNy,nlevs), gridFrac(sNx*sNy)
70    #ifndef REAL4_IS_SLOW
71          _RS     dummyRS(1)
72    #endif
73    
74  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
75        _RL   getcon        _RL   getcon
# Line 254  C-    Fill local array with grid-space f Line 257  C-    Fill local array with grid-space f
257    
258  C-    diagnostics is valid and Active: Now do the filling  C-    diagnostics is valid and Active: Now do the filling
259             CALL DIAGSTATS_FILL(             CALL DIAGSTATS_FILL(
260       I              gridField, gridFrac, scaleFact, 1, 1,       I              gridField, gridFrac,
261    #ifndef REAL4_IS_SLOW
262         I               dummyRS, dummyRS,
263    #endif
264         I              scaleFact, 1, 0, 1,
265       I              ndId, iSp, region2fill, kLev, nLevs,       I              ndId, iSp, region2fill, kLev, nLevs,
266       I              3, bi, bj, myThid )       I              3, bi, bj, myThid )
267           ENDIF           ENDIF
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22