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



Karsten Bolding 2012-01-24