<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 => mesh % latCell % array
- longitude => mesh % lonCell % array
-
- isltyp => sfc_input % isltyp % array
- ivgtyp => sfc_input % ivgtyp % array
-
- dzs => sfc_input % dzs % array
- sh2o => sfc_input % sh2o % array
- smcrel => sfc_input % smcrel % array
- smois => sfc_input % smois % array
- tslb => sfc_input % tslb % array
- sfc_temperature => 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) &
- 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>