<p><b>laura@ucar.edu</b> 2013-02-27 09:16:49 -0700 (Wed, 27 Feb 2013)</p><p>In subroutine init_atm_static_orogwd, changed the sourcecode from quitting to simply return when 1) the input static data for gwdo is not available for the uniform input mesh resolution; and 2) the input mesh is not a uniform mesh. In that case, the variables CON,OA1,OA2,OA3,O4,OL1,OL2,OL3,OL4 and VARD2D will not be initialized and will remain equal to zero.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_static.F
===================================================================
--- branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_static.F        2013-02-26 17:30:49 UTC (rev 2511)
+++ branches/atmos_physics/src/core_init_nhyd_atmos/mpas_init_atm_static.F        2013-02-27 16:16:49 UTC (rev 2512)
@@ -765,13 +765,17 @@
dir_gwdo = 'orogwd_30m'
else
write(0,*)
- write(mess,*) 'GWDO: Interpolation not available. The initialization will abort'
- call physics_error_fatal(mess)
+! write(mess,*) 'GWDO: Interpolation not available. The initialization will abort'
+! call physics_error_fatal(mess)
+ write(mess,*) 'GWDO: Interpolation not available. Set config_gwdo_scheme = .false.'
+ return
endif
else
write(0,*)
- write(mess,*) 'GWDO: The input mesh must be a uniform mesh. The initialization will abort'
- call physics_error_fatal(mess)
+! write(mess,*) 'GWDO: The input mesh must be a uniform mesh. The initialization will abort'
+! call physics_error_fatal(mess)
+ write(mess,*) 'GWDO: The input mesh must be a uniform mesh. Set config_gwdo_scheme = .false.'
+ return
endif
write(0,*) 'dir_gwdo = ', trim(dir_gwdo)
write(0,*)
</font>
</pre>