Storing the results


INTERFACE:

   subroutine save_seagrass
DESCRIPTION:

Here, storing of the seagrass profiles to an ascii or a netCDF file is managed.


USES:

   use meanflow, only:     h
   use output, only: out_fmt,ascii_unit,ts
 ifdef NETCDF_FMT
   use netcdf
   use ncdfout, only: ncid
   use ncdfout, only: lon_dim,lat_dim,z_dim,time_dim,dim4d
   use ncdfout, only: define_mode,new_nc_variable,set_attributes,store_data
 endif
   IMPLICIT NONE
REVISION HISTORY:
   Original author(s): Karsten Bolding & Hans Burchard
LOCAL VARIABLES:
   integer, save             :: x_excur_id,y_excur_id,n
   integer                   :: i,iret
   REALTYPE                  :: zz
   REALTYPE, parameter       :: miss_val = -999.0



Karsten Bolding 2012-12-28