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 NONEINPUT PARAMETERS:
REALTYPE, intent(in) :: secs !DEFINED PARAMTERS: logical, parameter :: save3d=.false.REVISION HISTORY:
Original author(s): Karsten Bolding & Hans BurchardLOCAL 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