<p><b>laura@ucar.edu</b> 2013-02-28 11:53:05 -0700 (Thu, 28 Feb 2013)</p><p>Added pre-processing command non_hydrostatic_core so that compns does not read the file gfs_namelist which is the namelist needed to run the GFS. All the default namelist options listed in gfs_namelist are for now hardwired in the gfs physics initialization module. These options will be later moved to namelist.input, if needed.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmphys_gfs_mmm/src/core_atmos_physics_gfs/physics_gfs/compns.f
===================================================================
--- branches/atmphys_gfs_mmm/src/core_atmos_physics_gfs/physics_gfs/compns.f        2013-02-28 18:46:03 UTC (rev 2519)
+++ branches/atmphys_gfs_mmm/src/core_atmos_physics_gfs/physics_gfs/compns.f        2013-02-28 18:53:05 UTC (rev 2520)
@@ -97,8 +97,13 @@
real tol
+#if defined(non_hydrostatic_core)
+ character(len=*),intent(in),optional:: gfs_namelist
+ integer,intent(in),optional:: me,nlunit
+#else
character (len=*), intent(in) :: gfs_namelist
integer, intent(in) :: me, nlunit
+#endif
real,intent(inout) :: deltim
integer,intent(out) :: iret
! integer ntrac,nxpt,nypt,jintmx,jcap,levs,lonf,lonr,latg,latr
@@ -277,6 +282,9 @@
!
yhalo = 4
+#if defined(non_hydrostatic_core)
+ return
+#else
!
print *,' nlunit=',nlunit,' gfs_namelist=',gfs_namelist
c$$$ read(5,nam_mrf)
@@ -500,4 +508,5 @@
endif
call mpi_quit(999)
!
+#endif
end
</font>
</pre>