<p><b>lowrie@lanl.gov</b> 2013-02-06 17:56:20 -0700 (Wed, 06 Feb 2013)</p><p><br>
Added moment data for tracers, using the new 5D arrays.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/mpas_cdg_advection/src/core_ocean/Registry
===================================================================
--- branches/mpas_cdg_advection/src/core_ocean/Registry 2013-02-06 23:04:47 UTC (rev 2450)
+++ branches/mpas_cdg_advection/src/core_ocean/Registry 2013-02-07 00:56:20 UTC (rev 2451)
@@ -115,6 +115,8 @@
dim nVertLevels nVertLevels
dim nVertLevelsP1 nVertLevels+1
dim nMonths nMonths
+dim nVertBasis nVertBasis
+dim nHorizBasis nHorizBasis
%
% var persistence type name_in_file ( dims ) time_levs iro- name_in_code struct super-array array_class
@@ -230,6 +232,9 @@
var persistent real temperature ( nVertLevels nCells Time ) 2 iro temperature state tracers dynamics
var persistent real salinity ( nVertLevels nCells Time ) 2 iro salinity state tracers dynamics
var persistent real tracer1 ( nVertLevels nCells Time ) 2 iro tracer1 state tracers testing
+var persistent real temperatureMoms ( nVertBasis nHorizBasis nVertLevels nCells Time ) 2 iro temperatureMoms state tracerMoms dynamicsMoms
+var persistent real salinityMoms ( nVertBasis nHorizBasis nVertLevels nCells Time ) 2 iro salinityMoms state tracerMoms dynamicsMoms
+var persistent real tracer1Moms ( nVertBasis nHorizBasis nVertLevels nCells Time ) 2 iro tracer1Moms state tracerMoms testingMoms
% Tendency variables: neither read nor written to any files
var persistent real tend_u ( nVertLevels nEdges Time ) 1 - u tend - -
@@ -238,6 +243,9 @@
var persistent real tend_temperature ( nVertLevels nCells Time ) 1 - temperature tend tracers dynamics
var persistent real tend_salinity ( nVertLevels nCells Time ) 1 - salinity tend tracers dynamics
var persistent real tend_tracer1 ( nVertLevels nCells Time ) 1 - tracer1 tend tracers testing
+var persistent real tend_temperatureMoms ( nVertBasis nHorizBasis nVertLevels nCells Time ) 1 - temperatureMoms tend tracerMoms dynamicsMoms
+var persistent real tend_salinityMoms ( nVertBasis nHorizBasis nVertLevels nCells Time ) 1 - salinityMoms tend tracerMoms dynamicsMoms
+var persistent real tend_tracer1Moms ( nVertBasis nHorizBasis nVertLevels nCells Time ) 1 - tracer1Moms tend tracerMoms testingMoms
% state variables for Split Explicit timesplitting
var persistent real uBtr ( nEdges Time ) 2 r uBtr state - -
Modified: branches/mpas_cdg_advection/src/registry/gen_inc.c
===================================================================
--- branches/mpas_cdg_advection/src/registry/gen_inc.c 2013-02-06 23:04:47 UTC (rev 2450)
+++ branches/mpas_cdg_advection/src/registry/gen_inc.c 2013-02-07 00:56:20 UTC (rev 2451)
@@ -1028,6 +1028,8 @@
fortprintf(fd, " real (kind=RKIND), dimension(:), pointer :: real1d</font>
<font color="black">");
fortprintf(fd, " real (kind=RKIND), dimension(:,:), pointer :: real2d</font>
<font color="black">");
fortprintf(fd, " real (kind=RKIND), dimension(:,:,:), pointer :: real3d</font>
<font color="blue">");
+ fortprintf(fd, " real (kind=RKIND), dimension(:,:,:,:), pointer :: real4d</font>
<font color="blue">");
+ fortprintf(fd, " real (kind=RKIND), dimension(:,:,:,:,:), pointer :: real5d</font>
<font color="black">");
fortprintf(fd, " integer :: int0d</font>
<font color="black">");
fortprintf(fd, " integer, dimension(:), pointer :: int1d</font>
<font color="black">");
fortprintf(fd, " integer, dimension(:,:), pointer :: int2d</font>
<font color="black">");
</font>
</pre>