<p><b>duda</b> 2012-04-10 18:45:38 -0600 (Tue, 10 Apr 2012)</p><p>Add the 'save' attribute to input and output objects to avoid the following error from the xlf compiler:<br>
<br>
"A variable declared in the scope of a module, output_obj, that is of a derived type with default initialization, must have the SAVE attribute."<br>
<br>
<br>
M src/core_hyd_atmos/mpas_atmh_mpas_core.F<br>
M src/core_sw/mpas_sw_mpas_core.F<br>
M src/driver/mpas_subdriver.F<br>
M src/core_nhyd_atmos/mpas_atm_mpas_core.F<br>
M src/core_ocean/mpas_ocn_mpas_core.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/omp_blocks/io/src/core_hyd_atmos/mpas_atmh_mpas_core.F
===================================================================
--- branches/omp_blocks/io/src/core_hyd_atmos/mpas_atmh_mpas_core.F        2012-04-10 23:08:42 UTC (rev 1768)
+++ branches/omp_blocks/io/src/core_hyd_atmos/mpas_atmh_mpas_core.F        2012-04-11 00:45:38 UTC (rev 1769)
@@ -3,7 +3,7 @@
use mpas_framework
use mpas_timekeeping
- type (io_output_object) :: restart_obj
+ type (io_output_object), save :: restart_obj
integer :: current_outfile_frames
Modified: branches/omp_blocks/io/src/core_nhyd_atmos/mpas_atm_mpas_core.F
===================================================================
--- branches/omp_blocks/io/src/core_nhyd_atmos/mpas_atm_mpas_core.F        2012-04-10 23:08:42 UTC (rev 1768)
+++ branches/omp_blocks/io/src/core_nhyd_atmos/mpas_atm_mpas_core.F        2012-04-11 00:45:38 UTC (rev 1769)
@@ -2,8 +2,8 @@
use mpas_framework
- type (io_output_object) :: restart_obj
- type (io_input_object) :: sfc_update_obj
+ type (io_output_object), save :: restart_obj
+ type (io_input_object), save :: sfc_update_obj
integer :: current_outfile_frames
type (MPAS_Clock_type) :: clock
Modified: branches/omp_blocks/io/src/core_ocean/mpas_ocn_mpas_core.F
===================================================================
--- branches/omp_blocks/io/src/core_ocean/mpas_ocn_mpas_core.F        2012-04-10 23:08:42 UTC (rev 1768)
+++ branches/omp_blocks/io/src/core_ocean/mpas_ocn_mpas_core.F        2012-04-11 00:45:38 UTC (rev 1769)
@@ -27,7 +27,7 @@
use ocn_time_average
- type (io_output_object) :: restart_obj
+ type (io_output_object), save :: restart_obj
integer :: current_outfile_frames
Modified: branches/omp_blocks/io/src/core_sw/mpas_sw_mpas_core.F
===================================================================
--- branches/omp_blocks/io/src/core_sw/mpas_sw_mpas_core.F        2012-04-10 23:08:42 UTC (rev 1768)
+++ branches/omp_blocks/io/src/core_sw/mpas_sw_mpas_core.F        2012-04-11 00:45:38 UTC (rev 1769)
@@ -3,7 +3,7 @@
use mpas_framework
use mpas_timekeeping
- type (io_output_object) :: restart_obj
+ type (io_output_object), save :: restart_obj
integer :: current_outfile_frames
type (MPAS_Clock_type) :: clock
Modified: branches/omp_blocks/io/src/driver/mpas_subdriver.F
===================================================================
--- branches/omp_blocks/io/src/driver/mpas_subdriver.F        2012-04-10 23:08:42 UTC (rev 1768)
+++ branches/omp_blocks/io/src/driver/mpas_subdriver.F        2012-04-11 00:45:38 UTC (rev 1769)
@@ -5,7 +5,7 @@
type (dm_info), pointer :: dminfo
type (domain_type), pointer :: domain
- type (io_output_object) :: output_obj
+ type (io_output_object), save :: output_obj
integer :: output_frame
</font>
</pre>