<p><b>laura@ucar.edu</b> 2011-09-27 14:34:39 -0600 (Tue, 27 Sep 2011)</p><p>removed since not needed with the new time manager<br>
</p><hr noshade><pre><font color="gray">Deleted: branches/atmos_physics/src/core_physics/module_physics_abort.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_abort.F        2011-09-27 18:43:01 UTC (rev 1026)
+++ branches/atmos_physics/src/core_physics/module_physics_abort.F        2011-09-27 20:34:39 UTC (rev 1027)
@@ -1,18 +0,0 @@
-!=============================================================================================
- module module_physics_abort
-
- implicit none
- private
- public:: mpas_physics_abort
-
- contains
-
-!=============================================================================================
- subroutine mpas_physics_abort(msg)
-!=============================================================================================
-
- end subroutine mpas_physics_abort
-
-!=============================================================================================
- end module module_physics_abort
-!=============================================================================================

Deleted: branches/atmos_physics/src/core_physics/module_physics_aquaplanet.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_aquaplanet.F        2011-09-27 18:43:01 UTC (rev 1026)
+++ branches/atmos_physics/src/core_physics/module_physics_aquaplanet.F        2011-09-27 20:34:39 UTC (rev 1027)
@@ -1,102 +0,0 @@
-!=============================================================================================
- module module_physics_aquaplanet
- use configure
- use grid_types
- use constants, only: pii
- 
- use module_physics_constants
- use module_physics_vars
-
- implicit none
- private
- public:: physics_aquaplanet_init
-
-
-!These variables will need to be redefined when we have a time manager.
-!integer,parameter,public:: julday = 80!Julian day                                        (-).
- integer,parameter,public:: julday = 22!Julian day                                        (-).
- real(kind=RKIND),parameter,public:: gmt    = 0 !Greenwich mean time hour of model start (hr).
-
- contains
-
-!=============================================================================================
- subroutine physics_aquaplanet_init(mesh,diag_physics,sfc_input)
-!=============================================================================================
-
-!input and inout arguments:
-!--------------------------
- type(mesh_type),intent(in):: mesh
- type(diag_physics_type),intent(in):: diag_physics
- type(sfc_input_type)   ,intent(in):: sfc_input
-
-!local variables:
- integer:: iCell,iSoil,nCells,nSoils
- integer,dimension(:),pointer:: isltyp,ivgtyp
- 
- real(kind=RKIND),parameter:: t00_c = 27.
- real(kind=RKIND):: lat
-
- real(kind=RKIND),dimension(:),pointer:: latitude
- real(kind=RKIND),dimension(:),pointer:: longitude
- real(kind=RKIND),dimension(:),pointer:: lu_index
- real(kind=RKIND),dimension(:),pointer:: sfc_temperature
- real(kind=RKIND),dimension(:,:),pointer:: dzs,sh2o,smcrel,smois,tslb
-
-!---------------------------------------------------------------------------------------------
-
- write(0,*)
- write(0,*) '--- enter subroutine physics_aquaplanet:'
-
- nCells = mesh % nCells
- nSoils = mesh % nSoilLevels
- 
- latitude  =&gt; mesh % latCell % array
- longitude =&gt; mesh % lonCell % array
-
- isltyp    =&gt; sfc_input % isltyp % array
- ivgtyp    =&gt; sfc_input % ivgtyp % array
-
- dzs    =&gt; sfc_input % dzs    % array
- sh2o   =&gt; sfc_input % sh2o   % array
- smcrel =&gt; sfc_input % smcrel % array
- smois  =&gt; sfc_input % smois  % array
- tslb   =&gt; sfc_input % tslb   % array
- sfc_temperature =&gt; sfc_input % skintemp % array
- 
-
-!set surface conditions to all oceans:
- do iCell = 1, nCells
-    isltyp(iCell)   = 14
-    ivgtyp(iCell)   = 16
- enddo
-
-!compute fixed sea-surface temperatures:
- write(0,*)
- write(0,*) 'max lat=',maxval(latitude)
- write(0,*) 'min lat=',minval(latitude)
- do iCell = 1, nCells
-    lat = 1.5*latitude(iCell)
-    sfc_temperature(iCell) = t00
-    if(lat .gt. -pii/3 .and. lat .lt. pii/3) &amp;
-       sfc_temperature(iCell) = sfc_temperature(iCell)+t00_c*(1-sin(lat)*sin(lat))
- enddo
-
-!ad-hoc values for soil moisture fields:
- do iSoil = 1, nSoils
- do iCell = 1, nCells
-    dzs(iSoil,iCell)    = 3.0
-    sh2o(iSoil,iCell)   = 0.
-    smcrel(iSoil,iCell) = 0.
-    smois(iSoil,iCell)  = 0.
-    tslb(iSoil,iCell)   = sfc_temperature(iCell)
- enddo
- enddo
-
- write(0,*) '--- end subroutine physics_aquaplanet'
- write(0,*)
-
- end subroutine physics_aquaplanet_init
-
-!=============================================================================================
- end module module_physics_aquaplanet
-!=============================================================================================

</font>
</pre>