! -*-f90-*- (for emacs) vim:set filetype=fortran: (for vim) ! pencil_init.inc ! ! This file was automatically generated by mkcparam, so think twice before ! you modify it. ! ! It is included by equ.f90 and defines a subroutine to reset all pencils to ! a reference value for pencil_consistency_check(). ! subroutine initialize_pencils(p,penc0) type (pencil_case) :: p real :: penc0 p%Ywater = penc0 p%lambda = penc0 p%lnrho = penc0 p%rho = penc0 p%rho1 = penc0 p%glnrho = penc0 p%grho = penc0 p%uglnrho = penc0 p%ugrho = penc0 p%glnrho2 = penc0 p%del2lnrho = penc0 p%del2rho = penc0 p%del6lnrho = penc0 p%del6rho = penc0 p%hlnrho = penc0 p%sglnrho = penc0 p%uij5glnrho = penc0 p%transprho = penc0 p%ekin = penc0 p%uuadvec_glnrho = penc0 p%uuadvec_grho = penc0 p%rhos1 = penc0 p%glnrhos = penc0 p%rhod = penc0 p%udropav = penc0 p%rhodsum = penc0 p%glnrhodsum = penc0 p%uud = penc0 p%divud = penc0 p%sdij = penc0 p%Ma2 = penc0 p%fpres = penc0 p%tcond = penc0 p%sglnTT = penc0 p%uglnTT = penc0 p%ss = penc0 p%gss = penc0 p%ee = penc0 p%pp = penc0 p%lnTT = penc0 p%cs2 = penc0 p%cp = penc0 p%cp1 = penc0 p%cp1tilde = penc0 p%glnTT = penc0 p%TT = penc0 p%TT1 = penc0 p%gTT = penc0 p%yH = penc0 p%hss = penc0 p%hlnTT = penc0 p%del2ss = penc0 p%del6ss = penc0 p%del2lnTT = penc0 p%cv = penc0 p%cv1 = penc0 p%del6lnTT = penc0 p%gamma = penc0 p%del2TT = penc0 p%del6TT = penc0 p%glnmumol = penc0 p%ppvap = penc0 p%csvap2 = penc0 p%TTb = penc0 p%rho_anel = penc0 p%eth = penc0 p%geth = penc0 p%del2eth = penc0 p%heth = penc0 p%eths = penc0 p%geths = penc0 p%rho1gpp = penc0 p%fcont = penc0 p%gg = penc0 p%x_mn = penc0 p%y_mn = penc0 p%z_mn = penc0 p%r_mn = penc0 p%r_mn1 = penc0 p%phix = penc0 p%phiy = penc0 p%pomx = penc0 p%pomy = penc0 p%rcyl_mn = penc0 p%rcyl_mn1 = penc0 p%phi_mn = penc0 p%evr = penc0 p%rr = penc0 p%evth = penc0 p%divu = penc0 p%oo = penc0 p%o2 = penc0 p%ou = penc0 p%u2 = penc0 p%uij = penc0 p%uu = penc0 p%curlo = penc0 p%sij = penc0 p%sij2 = penc0 p%uij5 = penc0 p%ugu = penc0 p%ugu2 = penc0 p%oij = penc0 p%d2uidxj = penc0 p%uijk = penc0 p%ogu = penc0 p%u3u21 = penc0 p%u1u32 = penc0 p%u2u13 = penc0 p%del2u = penc0 p%del4u = penc0 p%del6u = penc0 p%u2u31 = penc0 p%u3u12 = penc0 p%u1u23 = penc0 p%graddivu = penc0 p%del6u_bulk = penc0 p%grad5divu = penc0 p%rhougu = penc0 p%der6u = penc0 p%transpurho = penc0 p%divu0 = penc0 p%u0ij = penc0 p%uu0 = penc0 p%uu_advec = penc0 p%uuadvec_guu = penc0 p%del6u_strict = penc0 p%del4graddivu = penc0 p%bb = penc0 p%bbb = penc0 p%bij = penc0 p%jxbr = penc0 p%ss12 = penc0 p%b2 = penc0 p%uxb = penc0 p%jj = penc0 p%aa = penc0 p%diva = penc0 p%del2a = penc0 p%aij = penc0 p%bunit = penc0 p%mf_EMF = penc0 p%mf_EMFdotB = penc0 p%uun = penc0 p%divun = penc0 p%snij = penc0 p%rhop = penc0 p%grhop = penc0 p%peh = penc0 p%tauascalar = penc0 p%condensationRate = penc0 p%waterMixingRatio = penc0 p%cc = penc0 p%cc1 = penc0 p%gcc = penc0 p%shock = penc0 p%gshock = penc0 p%shock_perp = penc0 p%gshock_perp = penc0 p%acc = penc0 p%gacc = penc0 p%ugacc = penc0 p%del2acc = penc0 p%ssat = penc0 p%fvisc = penc0 p%diffus_total = penc0 p%diffus_total2 = penc0 p%diffus_total3 = penc0 p%visc_heat = penc0 p%nu = penc0 p%gradnu = penc0 p%nu_smag = penc0 p%gnu_smag = penc0 p%char_speed_slope = penc0 endsubroutine initialize_pencils