<p><b>laura@ucar.edu</b> 2010-12-21 15:56:57 -0700 (Tue, 21 Dec 2010)</p><p>deleted<br>
</p><hr noshade><pre><font color="gray">Deleted: branches/atmos_physics/src/core_physics/module_pbl.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_pbl.F        2010-12-21 22:55:09 UTC (rev 658)
+++ branches/atmos_physics/src/core_physics/module_pbl.F        2010-12-21 22:56:57 UTC (rev 659)
@@ -1,83 +0,0 @@
-!=============================================================================================
- module module_pbl
- use grid_types
- use constants
-
- use module_bl_ysu
- use module_physics_constants, rovcp =&gt; rcp  ,  rd =&gt;  R_d , rovg =&gt; rdg , &amp;
-                               ep1   =&gt; ep_1 , ep2 =&gt; ep_2 , rv   =&gt; R_v
- use module_physics_vars
-
- implicit none
- private
- public:: pbl_allocate,   &amp;
-          pbl_deallocate, &amp;
-          pbl_driver
-
- contains
-
-!=============================================================================================
- subroutine pbl_allocate
-!=============================================================================================
-
-!tendencies
- if(.not.allocated(rublten_phy) ) allocate(rublten_phy(ims:ime,kms:kme,jms:jme)  )
- if(.not.allocated(rvblten_phy) ) allocate(rvblten_phy(ims:ime,kms:kme,jms:jme)  )
- if(.not.allocated(rthblten_phy)) allocate(rthblten_phy(ims:ime,kms:kme,jms:jme) )
- if(.not.allocated(rqvblten_phy)) allocate(rqvblten_phy(ims:ime,kms:kme,jms:jme) )
- if(.not.allocated(rqcblten_phy)) allocate(rqcblten_phy(ims:ime,kms:kme,jms:jme) )
- if(.not.allocated(rqiblten_phy)) allocate(rqiblten_phy(ims:ime,kms:kme,jms:jme) )
-
- end subroutine pbl_allocate
-
-!=============================================================================================
- subroutine pbl_deallocate
-!=============================================================================================
-
-!tendencies
- if(allocated(rublten_phy) ) deallocate(rublten_phy  )
- if(allocated(rvblten_phy) ) deallocate(rvblten_phy  )
- if(allocated(rthblten_phy)) deallocate(rthblten_phy )
- if(allocated(rqvblten_phy)) deallocate(rqvblten_phy )
- if(allocated(rqcblten_phy)) deallocate(rqcblten_phy )
- if(allocated(rqiblten_phy)) deallocate(rqiblten_phy )
-
- end subroutine pbl_deallocate
-
-!=============================================================================================
- subroutine pbl_driver(itimestep,grid,vars)
-!=============================================================================================
-
-!input and output arguments:
-!---------------------------
- integer,intent(in):: itimestep
- type(mesh_type),intent(in):: grid
- type(state_type),intent(out):: vars
-
-!--------------------------------------------------------------------------------------------- 
- write(0,*) '--- enter pbl driver:'
-
-!pbl_select: select_case(pbl_scheme)
-
-    !call to ysu pbl scheme:
-!    call ysu ( &amp;
-!                     u_phy ,        v_phy ,       th_phy ,        t_phy ,  &amp;      
-!                    qv_phy ,       qc_phy ,       qi_phy ,        p_phy ,  &amp;
-!                    pz_phy ,       pi_phy ,  rublten_phy ,  rvblten_phy ,  &amp;
-!              rthblten_phy , rqvblten_phy , rqcblten_phy , rqiblten_phy ,  &amp;
-!               pbl_flag_qi ,           cp ,            g ,        rovcp ,  &amp;
-!                        rd ,         rovg ,          ep1 ,          ep2 ,  &amp;
-!                    karman ,          xlv ,           rv ,       dz_phy ,  &amp;
-!                  psfc_phy
-!             )
-
-
-!end select pbl_select
- write(0,*) '--- end pbl_driver:'
- stop
-
- end subroutine pbl_driver
-
-!=============================================================================================
- end module module_pbl
-!=============================================================================================

Deleted: branches/atmos_physics/src/core_physics/module_physics_sfclayer.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_sfclayer.F        2010-12-21 22:55:09 UTC (rev 658)
+++ branches/atmos_physics/src/core_physics/module_physics_sfclayer.F        2010-12-21 22:56:57 UTC (rev 659)
@@ -1,132 +0,0 @@
-!=============================================================================================
- module module_physics_sfclayer
- use grid_types
- use module_physics_vars
-
-!from wrf physics:
- use module_sf_sfclay
-
- implicit none
- private
- public:: sfclayer_allocate,      &amp;
-          sfclayer_deallocate,    &amp;
-          sfclayer_interface_init
-
- integer,private:: i,j
-
- contains
-
-!=============================================================================================
- subroutine sfclayer_allocate
-!=============================================================================================
-
- if(.not.allocated(br_p)     ) allocate(br_p(ims:ime,jms:jme)     )
- if(.not.allocated(gz1oz0_p) ) allocate(gz1oz0_p(ims:ime,jms:jme) )
- if(.not.allocated(flhc_p)   ) allocate(flhc_p(ims:ime,jms:jme)   )
- if(.not.allocated(flqc_p)   ) allocate(flqc_p(ims:ime,jms:jme)   )
- if(.not.allocated(hfx_p)    ) allocate(hfx_p(ims:ime,jms:jme)    )
- if(.not.allocated(lh_p)     ) allocate(lh_p(ims:ime,jms:jme)     )
- if(.not.allocated(mavail_p) ) allocate(mavail_p(ims:ime,jms:jme) )
- if(.not.allocated(mol_p)    ) allocate(mol_p(ims:ime,jms:jme)    )
- if(.not.allocated(pblh_p)   ) allocate(pblh_p(ims:ime,jms:jme)   )
- if(.not.allocated(psih_p)   ) allocate(psih_p(ims:ime,jms:jme)   )
- if(.not.allocated(psim_p)   ) allocate(psim_p(ims:ime,jms:jme)   )
- if(.not.allocated(q2_p)     ) allocate(q2_p(ims:ime,jms:jme)     )
- if(.not.allocated(qfx_p)    ) allocate(qfx_p(ims:ime,jms:jme)    )
- if(.not.allocated(qsfc_p)   ) allocate(qsfc_p(ims:ime,jms:jme)   )
- if(.not.allocated(regime_p) ) allocate(regime_p(ims:ime,jms:jme) )
- if(.not.allocated(rmol_p)   ) allocate(rmol_p(ims:ime,jms:jme)   )
- if(.not.allocated(t2_p)     ) allocate(t2_p(ims:ime,jms:jme)     )
- if(.not.allocated(tsk_p)    ) allocate(tsk_p(ims:ime,jms:jme)    )
- if(.not.allocated(th2_p)    ) allocate(th2_p(ims:ime,jms:jme)    )
- if(.not.allocated(u10_p)    ) allocate(u10_p(ims:ime,jms:jme)    )
- if(.not.allocated(ust_p)    ) allocate(ust_p(ims:ime,jms:jme)    )
- if(.not.allocated(ustm_p)   ) allocate(ustm_p(ims:ime,jms:jme)   )
- if(.not.allocated(v10_p)    ) allocate(v10_p(ims:ime,jms:jme)    )
- if(.not.allocated(wspd_p)   ) allocate(wspd_p(ims:ime,jms:jme)   )
- if(.not.allocated(xland_p)  ) allocate(xland_p(ims:ime,jms:jme)  )
- if(.not.allocated(znt_p)    ) allocate(znt_p(ims:ime,jms:jme)    )
-
- end subroutine sfclayer_allocate
-
-!=============================================================================================
- subroutine sfclayer_deallocate
-!=============================================================================================
-
- if(allocated(br_p)     ) deallocate(br_p     )
- if(allocated(gz1oz0_p) ) deallocate(gz1oz0_p )
- if(allocated(flhc_p)   ) deallocate(flhc_p   )
- if(allocated(flqc_p)   ) deallocate(flqc_p   )
- if(allocated(hfx_p)    ) deallocate(hfx_p    )
- if(allocated(lh_p)     ) deallocate(lh_p     )
- if(allocated(mavail_p) ) deallocate(mavail_p )
- if(allocated(mol_p)    ) deallocate(mol_p    )
- if(allocated(pblh_p)   ) deallocate(pblh_p   )
- if(allocated(psih_p)   ) deallocate(psih_p   )
- if(allocated(psim_p)   ) deallocate(psim_p   )
- if(allocated(q2_p)     ) deallocate(q2_p     )
- if(allocated(qfx_p)    ) deallocate(qfx_p    )
- if(allocated(qsfc_p)   ) deallocate(qsfc_p   )
- if(allocated(regime_p) ) deallocate(regime_p )
- if(allocated(rmol_p)   ) deallocate(rmol_p   )
- if(allocated(t2_p)     ) deallocate(t2_p     )
- if(allocated(tsk_p)    ) deallocate(tsk_p    )
- if(allocated(th2_p)    ) deallocate(th2_p    )
- if(allocated(u10_p)    ) deallocate(u10_p    )
- if(allocated(ust_p)    ) deallocate(ust_p    )
- if(allocated(ustm_p)   ) deallocate(ustm_p   )
- if(allocated(v10_p)    ) deallocate(v10_p    )
- if(allocated(wspd_p)   ) deallocate(wspd_p   )
- if(allocated(xland_p)  ) deallocate(xland_p  )
- if(allocated(znt_p)    ) deallocate(znt_p    )
-
- end subroutine sfclayer_deallocate
-
-!=============================================================================================
- subroutine sfclayer_interface_init(diag_physics)
-!=============================================================================================
-
-!input arguments:
- type(diag_physics_type),intent(in):: diag_physics
-
-!---------------------------------------------------------------------------------------------
-
- do j = jts,jte
- do i = its,ite
-
-    br_p(i,j)     = 0.
-    gz1oz0_p(i,j) = 0.
-    psih_p(i,j)   = 0.
-    psim_p(i,j)   = 0.
-    wspd_p(i,j)   = 0.
-       
-    flhc_p(i,j)   = diag_physics % flhc   % array(i)
-    flqc_p(i,j)   = diag_physics % flqc   % array(i)
-    hfx_p(i,j)    = diag_physics % hfx    % array(i)
-    lh_p(i,j)     = diag_physics % lh     % array(i)
-    mavail_p(i,j) = diag_physics % mavail % array(i)
-    mol_p(i,j)    = diag_physics % mol    % array(i)
-    pblh_p(i,j)   = diag_physics % pblh   % array(i)
-    q2_p(i,j)     = diag_physics % q2     % array(i)
-    qfx_p(i,j)    = diag_physics % qfx    % array(i)
-    qsfc_p(i,j)   = diag_physics % qsfc   % array(i)
-    regime_p(i,j) = diag_physics % regime % array(i)
-    rmol_p(i,j)   = diag_physics % rmol   % array(i)
-    t2_p(i,j)     = diag_physics % t2     % array(i)
-    tsk_p(i,j)    = diag_physics % tsk    % array(i)
-    th2_p(i,j)    = diag_physics % th2    % array(i)
-    u10_p(i,j)    = diag_physics % u10    % array(i)
-    ust_p(i,j)    = diag_physics % ust    % array(i)
-    ustm_p(i,j)   = diag_physics % ustm   % array(i)
-    v10_p(i,j)    = diag_physics % v10    % array(i)
-    xland_p(i,j)  = diag_physics % xland  % array(i)       
-    znt_p(i,j)    = diag_physics % znt    % array(i)
-
- enddo
- enddo
- 
- end subroutine sfclayer_interface_init
-
-!=============================================================================================
- end module module_physics_sfclayer
-!=============================================================================================

</font>
</pre>