/[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.11 by jmc, Thu Sep 3 20:46:12 2009 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          _RS     dummyRS(1)
71    
72  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
73        _RL   getcon        _RL   getcon
# Line 254  C-    Fill local array with grid-space f Line 255  C-    Fill local array with grid-space f
255    
256  C-    diagnostics is valid and Active: Now do the filling  C-    diagnostics is valid and Active: Now do the filling
257             CALL DIAGSTATS_FILL(             CALL DIAGSTATS_FILL(
258       I              gridField, gridFrac, scaleFact, 1, 1,       I              gridField, gridFrac,
259    #ifndef REAL4_IS_SLOW
260         I               dummyRS, dummyRS,
261    #endif
262         I              scaleFact, 1, 0, 1,
263       I              ndId, iSp, region2fill, kLev, nLevs,       I              ndId, iSp, region2fill, kLev, nLevs,
264       I              3, bi, bj, myThid )       I              3, bi, bj, myThid )
265           ENDIF           ENDIF
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22