【文章內(nèi)容簡(jiǎn)介】
s:jme):: glo real,dimension(its:ite,kts:kte,jts:jte):: loc mon block “ implicit none ” “ intent ” dimensions loops do j = jts, jte do k = kts, kte do i = its, ite ... enddo enddo enddo Prepare your code Implement a new physics scheme ? Create a new module ex, (put all your codes in) ? Go Registry and declare a new package (and new variables) (WRFV1/Registry) package chenscheme cu_physics==3 package kfscheme cu_physics==1 package bmjscheme cu_physics==2 Implement a new physics scheme Cloud microphysics package kesslerscheme mp_physics==1 moist:qv,qc,qr package linscheme mp_physics==2 moist:qv,qc,qr,qi,qs,qg package ncepcloud3 mp_physics==3 moist:qv,qc,qr package ncepcloud5 mp_physics==4 moist:qv,qc, ? Create a new module ex, (put all your codes in) ? Go Registry and declare a new package (and new variables) (WRFV1/Registry) Implement a new physics scheme ? Modify and assign cu_physics = 3 ? Create a new module ex, (put all your codes in) ? Go Registry and declare a new package (and new variables) (WRFV1/Registry) WRF ……. solve_em phy_init start_domain_em cu_init (dyn_em) () * * (phys) () (dyn_em) phys/ ? Pass new variables down to cu_init WRF ……. solve_em phy_init start_domain_em cu_init (dyn_em) () * * (phys) () (dyn_em) phys/ ? Go subroutine cu_init Include the new module and create a new SELECT case ? Pass new variables down to cu_init cps_select: SELECT CASE(config_flags%cu_physics) CASE (KFSCHEME) CALL kfinit(...) CASE (BMJSCHEME