save_2d_ncdf() - saves 2D-fields. (Source File: save_2d_ncdf.F90)

INTERFACE:

    subroutine save_2d_ncdf(secs)

DESCRIPTION:

USES:

    use netcdf
    use exceptions
    use ncdf_2d
    use grid_ncdf,    only: xlen,ylen
    use domain,       only: ioff,joff,imin,imax,jmin,jmax
    use domain,       only: H,az,au,av,crit_depth
    use domain,       only: convc
    use variables_2d, only: z,D,U,DU,V,DV,res_u,res_v
 #ifdef USE_BREAKS
    use variables_2d, only: break_stat
 #endif
    use meteo,        only: metforcing,calc_met
    use meteo,        only: airp,u10,v10,t2,hum,tcc
    use meteo,        only: evap,precip
    use meteo,        only: tausx,tausy,zenith_angle,swr,albedo,shf
 
    IMPLICIT NONE

INPUT PARAMETERS:

    REALTYPE, intent(in)                :: secs
   !DEFINED PARAMTERS:
    logical, parameter                  :: save3d=.false.

REVISION HISTORY:

    Original author(s): Karsten Bolding & Hans Burchard

LOCAL VARIABLES:

    integer                   :: err
    integer                   :: start(3),edges(3)
    integer, save             :: n2d=0
    REALTYPE                  :: dum(1)
    integer                   :: i,j
    REALTYPE                  :: Utmp(E2DFIELD),Vtmp(E2DFIELD)
 #if defined(CURVILINEAR)
    REALTYPE                  :: Urot(E2DFIELD),Vrot(E2DFIELD)
    REALTYPE                  :: deg2rad = 3.141592654/180.
    REALTYPE                  :: cosconv,sinconv
 #endif
    REALTYPE,dimension(E2DFIELD) :: ws