| [2849] | 1 | SUBROUTINE computeice_table(ngrid,nslope,nsoil_PEM,rhowatersurf_ave,rhowatersoil_ave,ice_table) |
|---|
| [2855] | 2 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 3 | !!! |
|---|
| 4 | !!! Purpose: Compute the ice table depth knowing the yearly average water |
|---|
| 5 | !!! density at the surface and at depth. |
|---|
| 6 | !!! Computations are made following the methods in Schorgofer et al., 2005 |
|---|
| 7 | !!! |
|---|
| 8 | !!! Author: LL |
|---|
| 9 | !!! |
|---|
| 10 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|---|
| 11 | |
|---|
| [2842] | 12 | #ifndef CPP_STD |
|---|
| [2855] | 13 | USE comsoil_h_PEM, only: layer_PEM ! Depth of the vertical grid |
|---|
| [2794] | 14 | implicit none |
|---|
| 15 | |
|---|
| [2855] | 16 | integer,intent(in) :: ngrid,nslope,nsoil_PEM ! Size of the physical grid, number of subslope, number of soil layer in the PEM |
|---|
| 17 | real,intent(in) :: rhowatersurf_ave(ngrid,nslope) ! Water density at the surface, yearly averaged [kg/m^3] |
|---|
| 18 | real,intent(in) :: rhowatersoil_ave(ngrid,nsoil_PEM,nslope) ! Water density at depth, computed from clapeyron law's (Murchy and Koop 2005), yearly averaged [kg/m^3] |
|---|
| 19 | real,intent(inout) :: ice_table(ngrid,nslope) ! ice table depth [m] |
|---|
| 20 | real :: z1,z2 ! intermediate variables used when doing a linear interpolation between two depths to find the root |
|---|
| 21 | integer ig, islope,isoil ! loop variables |
|---|
| 22 | real :: diff_rho(nsoil_PEM) ! difference of water vapor density between the surface and at depth [kg/m^3] |
|---|
| [2794] | 23 | |
|---|
| 24 | |
|---|
| 25 | do ig = 1,ngrid |
|---|
| [2849] | 26 | do islope = 1,nslope |
|---|
| 27 | ice_table(ig,islope) = -10. |
|---|
| [2794] | 28 | |
|---|
| 29 | do isoil = 1,nsoil_PEM |
|---|
| [2849] | 30 | diff_rho(isoil) = rhowatersurf_ave(ig,islope) - rhowatersoil_ave(ig,isoil,islope) |
|---|
| [2794] | 31 | |
|---|
| 32 | enddo |
|---|
| 33 | |
|---|
| [2855] | 34 | if(diff_rho(1) > 0) then ! ice is at the surface |
|---|
| [2794] | 35 | ice_table(ig,islope) = 0. |
|---|
| 36 | else |
|---|
| [2855] | 37 | do isoil = 1,nsoil_PEM -1 ! general case, we find the ice table depth by doing a linear approximation between the two depth, and then solve the first degree equation to find the root |
|---|
| [2849] | 38 | if((diff_rho(isoil).lt.0).and.(diff_rho(isoil+1).gt.0.)) then |
|---|
| 39 | z1 = (diff_rho(isoil) - diff_rho(isoil+1))/(layer_PEM(isoil) - layer_PEM(isoil+1)) |
|---|
| 40 | z2 = -layer_PEM(isoil+1)*z1 + diff_rho(isoil+1) |
|---|
| [2794] | 41 | ice_table(ig,islope) = -z2/z1 |
|---|
| 42 | exit |
|---|
| 43 | endif |
|---|
| 44 | enddo |
|---|
| 45 | endif |
|---|
| 46 | enddo |
|---|
| 47 | enddo |
|---|
| 48 | !======================================================================= |
|---|
| 49 | RETURN |
|---|
| [2842] | 50 | #endif |
|---|
| [2794] | 51 | END |
|---|
