GFS sfcsub Module

This module contains grib code for each parameter-used in subroutines sfccycle() and setrmsk(). More...

Collaboration diagram for GFS sfcsub Module:

Modules
module	sfccyc_module

Functions/Subroutines
character(len=16) function	sfccyc_module::message (prefix, index)
subroutine	sfccyc_module::monitr (lfld, fld, slimsk, sno, ijmax)
subroutine	sfccyc_module::hmskrd (lugb, imsk, jmsk, fnmskh, kpds5, slmskh, gausm, blnmsk, bltmsk, me)
	reads a high resolution mask field for use in grib interpolation
subroutine	sfccyc_module::fixrdg (lugb, idim, jdim, fngrib, kpds5, gdata, gaus, blno, blto, me)
subroutine	sfccyc_module::getarea (kgds, dlat, dlon, rslat, rnlat, wlon, elon, ijordr, me)
	This subroutine get area of the grib record.
subroutine	sfccyc_module::subst (data, imax, jmax, dlon, dlat, ijordr)
subroutine	sfccyc_module::la2ga (regin, imxin, jmxin, rinlon, rinlat, rlon, rlat, inttyp, gauout, len, lmask, rslmsk, slmask, outlat, outlon, me)
	This subroutine conducts interpolation from lat/lon to Gaussian grid to other lat/lon grid.
subroutine	sfccyc_module::filanl (tsfanl, tsfan2, wetanl, snoanl, zoranl, albanl, aisanl, tg3anl, cvanl, cvbanl, cvtanl, cnpanl, smcanl, stcanl, slianl, scvanl, veganl, vetanl, sotanl, socanl, alfanl, sihanl, sicanl, vmnanl, vmxanl, slpanl, absanl, tsfclm, tsfcl2, wetclm, snoclm, zorclm, albclm, aisclm, tg3clm, cvclm, cvbclm, cvtclm, cnpclm, smcclm, stcclm, sliclm, scvclm, vegclm, vetclm, sotclm, socclm, alfclm, sihclm, sicclm, vmnclm, vmxclm, slpclm, absclm, len, lsoil)
subroutine	sfccyc_module::analy (lugb, iy, im, id, ih, fh, len, lsoil, slmskl, slmskw, fntsfa, fnweta, fnsnoa, fnzora, fnalba, fnaisa, fntg3a, fnscva, fnsmca, fnstca, fnacna, fnvega, fnveta, fnsota, fnsoca, fnvmna, fnvmxa, fnslpa, fnabsa, tsfanl, wetanl, snoanl, zoranl, albanl, aisanl, tg3anl, cvanl, cvbanl, cvtanl, smcanl, stcanl, slianl, scvanl, acnanl, veganl, vetanl, sotanl, socanl, alfanl, tsfan0, vmnanl, vmxanl, slpanl, absanl, kpdtsf, kpdwet, kpdsno, kpdsnd, kpdzor, kpdalb, kpdais, kpdtg3, kpdscv, kpdacn, kpdsmc, kpdstc, kpdveg, kprvet, kpdsot, kpdsoc, kpdalf, kpdvmn, kpdvmx, kpdslp, kpdabs, irttsf, irtwet, irtsno, irtzor, irtalb, irtais, irttg3, irtscv, irtacn, irtsmc, irtstc, irtveg, irtvet, irtsot, irtsoc, irtalf, irtvmn, irtvmx, irtslp, irtabs, imsk, jmsk, slmskh, outlat, outlon, gaus, blno, blto, me, lanom)
subroutine	sfccyc_module::filfcs (tsffcs, wetfcs, snofcs, zorfcs, albfcs, tg3fcs, cvfcs, cvbfcs, cvtfcs, cnpfcs, smcfcs, stcfcs, slifcs, aisfcs, vegfcs, vetfcs, sotfcs, socfcs, alffcs, sihfcs, sicfcs, vmnfcs, vmxfcs, slpfcs, absfcs, tsfanl, wetanl, snoanl, zoranl, albanl, tg3anl, cvanl, cvbanl, cvtanl, cnpanl, smcanl, stcanl, slianl, aisanl, veganl, vetanl, sotanl, socanl, alfanl, sihanl, sicanl, vmnanl, vmxanl, slpanl, absanl, len, lsoil)
subroutine	sfccyc_module::bktges (smcfcs, stcfcs, len, lsoil)
subroutine	sfccyc_module::rof01 (aisfld, len, op, crit)
subroutine	sfccyc_module::rof01_len (aisfld, len, op, crit)
subroutine	sfccyc_module::tsfcor (tsfc, orog, slmask, umask, len, rlapse)
subroutine	sfccyc_module::snodpth (scvanl, slianl, tsfanl, snoclm, glacir, snwmax, snwmin, landice, len, snoanl, me)
	This subroutine uses surface temperature to get snow depth estimate.
subroutine	sfccyc_module::merge (len, lsoil, iy, im, id, ih, fh, deltsfc, slmskl, slmskw, sihfcs, sicfcs, vmnfcs, vmxfcs, slpfcs, absfcs, tsffcs, wetfcs, snofcs, zorfcs, albfcs, aisfcs, cvfcs, cvbfcs, cvtfcs, cnpfcs, smcfcs, stcfcs, slifcs, vegfcs, vetfcs, sotfcs, socfcs, alffcs, sihanl, sicanl, vmnanl, vmxanl, slpanl, absanl, tsfanl, tsfan2, wetanl, snoanl, zoranl, albanl, aisanl, cvanl, cvbanl, cvtanl, cnpanl, smcanl, stcanl, slianl, veganl, vetanl, sotanl, socanl, alfanl, ctsfl, calbl, caisl, csnol, csmcl, czorl, cstcl, cvegl, ctsfs, calbs, caiss, csnos, csmcs, czors, cstcs, cvegs, ccv, ccvb, ccvt, ccnp, cvetl, cvets, csotl, csots, csocl, csocs, calfl, calfs, csihl, csihs, csicl, csics, cvmnl, cvmns, cvmxl, cvmxs, cslpl, cslps, cabsl, cabss, irttsf, irtwet, irtsno, irtzor, irtalb, irtais, irttg3, irtscv, irtacn, irtsmc, irtstc, irtveg, irtvmn, irtvmx, irtslp, irtabs, irtvet, irtsot, irtsoc, irtalf, landice, me)
	This subroutine merges analysis and forecast.
subroutine	sfccyc_module::newice (slianl, slifcs, tsfanl, tsffcs, len, lsoil, sihnew, sicnew, sihanl, sicanl, albanl, snoanl, zoranl, smcanl, stcanl, albsea, snosea, zorsea, smcsea, smcice, tsfmin, tsfice, albice, zorice, tgice, rla, rlo, me)
subroutine	sfccyc_module::qcsnow (snoanl, slmask, aisanl, glacir, len, snoval, landice, me)
subroutine	sfccyc_module::qcsice (ais, glacir, amxice, aicice, aicsea, sllnd, slmask, rla, rlo, len, me)
subroutine	sfccyc_module::setlsi (slmask, aisfld, len, aicice, slifld)
subroutine	sfccyc_module::scale (fld, len, scl)
subroutine	sfccyc_module::qcmxmn (ttl, fld, slimsk, sno, iceflg, fldlmx, fldlmn, fldomx, fldomn, fldimx, fldimn, fldjmx, fldjmn, fldsmx, fldsmn, epsfld, rla, rlo, len, mode, percrit, lgchek, me)
subroutine	sfccyc_module::setzro (fld, eps, len)
subroutine	sfccyc_module::getscv (snofld, scvfld, len)
subroutine	sfccyc_module::getstc (tsffld, tg3fld, slifld, len, lsoil, stcfld, tsfimx)
subroutine	sfccyc_module::getsmc (wetfld, len, lsoil, smcfld, me)
	This subroutine calculates layer soil wetness.
subroutine	sfccyc_module::usesgt (sig1t, slianl, tg3anl, len, lsoil, tsfanl, stcanl, tsfimx)
subroutine	sfccyc_module::snosfc (snoanl, tsfanl, tsfsmx, len, me)
subroutine	sfccyc_module::albocn (albclm, slmask, albomx, len)
subroutine	sfccyc_module::qcmxice (glacir, amxice, len, me)
subroutine	sfccyc_module::qcsli (slianl, slifcs, len, me)
subroutine	sfccyc_module::qcbyfc (tsffcs, snofcs, qctsfs, qcsnos, qctsfi, len, lsoil, snoanl, aisanl, slianl, tsfanl, albanl, zoranl, smcanl, smcclm, tsfsmx, albomx, zoromx, me)
subroutine	sfccyc_module::setrmsk (kpds5, slmask, igaul, jgaul, wlon, rnlat, data, imax, jmax, rlnout, rltout, lmask, rslmsk, gaus, blno, blto, kgds1, kpds4, lbms)
subroutine	sfccyc_module::ga2la (gauin, imxin, jmxin, regout, imxout, jmxout, wlon, rnlat, rlnout, rltout, gaus, blno, blto)
	This subroutine interpolates from lat/lon grid to other lat/lon grid.
subroutine	sfccyc_module::landtyp (vegtype, soiltype, colortype, slptype, slmask, len)
subroutine	sfccyc_module::gaulat (gaul, k)
subroutine	sfccyc_module::anomint (tsfan0, tsfclm, tsfcl0, tsfanl, len)
	The subroutine conducts time interpolation of anomalies, and add initial anomaly to date interpolated climatology.
subroutine	sfccyc_module::clima (lugb, iy, im, id, ih, fh, len, lsoil, slmskl, slmskw, fntsfc, fnwetc, fnsnoc, fnzorc, fnalbc, fnaisc, fntg3c, fnscvc, fnsmcc, fnstcc, fnacnc, fnvegc, fnvetc, fnsotc, fnsocc, fnvmnc, fnvmxc, fnslpc, fnabsc, tsfclm, tsfcl2, wetclm, snoclm, zorclm, albclm, aisclm, tg3clm, cvclm, cvbclm, cvtclm, cnpclm, smcclm, stcclm, sliclm, scvclm, acnclm, vegclm, vetclm, sotclm, socclm, alfclm, vmnclm, vmxclm, slpclm, absclm, kpdtsf, kpdwet, kpdsno, kpdzor, kpdalb, kpdais, kpdtg3, kpdscv, kpdacn, kpdsmc, kpdstc, kpdveg, kpdvet, kpdsot, kpdsoc, kpdalf, tsfcl0, kpdvmn, kpdvmx, kpdslp, kpdabs, deltsfc, lanom, imsk, jmsk, slmskh, outlat, outlon, gaus, blno, blto, me, lprnt, iprnt, fnalbc2, ialb, tile_num_ch, i_index, j_index)
subroutine	sfccyc_module::fixrdc_tile (filename_raw, tile_num_ch, i_index, j_index, kpds, var, mon, npts, me)
subroutine	sfccyc_module::netcdf_err (error)
subroutine	sfccyc_module::fixrdc (lugb, fngrib, kpds5, kpds7, mon, slmask, gdata, len, iret, imsk, jmsk, slmskh, gaus, blno, blto, outlat, outlon, me)
	reads in grib climatology files and interpolate to the input grid. grib files should allow all the necessary parameters to be extracted from the description records.
subroutine	sfccyc_module::fixrda (lugb, fngrib, kpds5, slmask, iy, im, id, ih, fh, gdata, len, iret, imsk, jmsk, slmskh, gaus, blno, blto, outlat, outlon, me)
subroutine	sfccyc_module::snodpth2 (glacir, snwmax, snoanl, len, me)

Variables
integer	sfccyc_module::kpdwet
integer	sfccyc_module::kpdsno
integer	sfccyc_module::kpdzor
integer	sfccyc_module::kpdais
integer	sfccyc_module::kpdtg3
integer	sfccyc_module::kpdplr
integer	sfccyc_module::kpdgla
integer, dimension(4), parameter	sfccyc_module::kpdalb_0 =(/212,215,213,216/)
integer, dimension(4), parameter	sfccyc_module::kpdalb_1 =(/189,190,191,192/)
integer, dimension(2), parameter	sfccyc_module::kpdalf =(/214,217/)
real(kind=kind_io8), parameter	sfccyc_module::ten =10.0
real(kind=kind_io8), parameter	sfccyc_module::one =1.0
real(kind=kind_io8), parameter	sfccyc_module::zero =0.0
integer, parameter	sfccyc_module::xdata =7200
integer, parameter	sfccyc_module::ydata =3600
integer, parameter	sfccyc_module::mdata =xdata*ydata
integer	sfccyc_module::veg_type_landice
integer	sfccyc_module::soil_type_landice
integer	sfccyc_module::soil_color_landice
integer	sfccyc_module::num_threads

Detailed Description