<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>