| 1 | ! |
|---|
| 2 | ! $Id $ |
|---|
| 3 | ! |
|---|
| 4 | SUBROUTINE recomp_tend_co2_slope(tendencies_co2_ice_phys,tendencies_co2_ice_phys_ini,co2ice_slope,vmr_co2_gcm,vmr_co2_pem,ps_GCM_2,global_ave_press_GCM,global_ave_press_new,timelen,ngrid,nslope) |
|---|
| 5 | |
|---|
| 6 | IMPLICIT NONE |
|---|
| 7 | |
|---|
| 8 | !======================================================================= |
|---|
| 9 | ! |
|---|
| 10 | ! Routine that compute the evolution of the tendencie for co2 ice |
|---|
| 11 | ! |
|---|
| 12 | !======================================================================= |
|---|
| 13 | |
|---|
| 14 | ! arguments: |
|---|
| 15 | ! ---------- |
|---|
| 16 | |
|---|
| 17 | ! INPUT |
|---|
| 18 | INTEGER, intent(in) :: timelen,ngrid,nslope |
|---|
| 19 | REAL, INTENT(in) :: vmr_co2_gcm(ngrid,timelen) ! physical point field : Volume mixing ratio of co2 in the first layer |
|---|
| 20 | REAL, INTENT(in) :: vmr_co2_pem(ngrid,timelen) ! physical point field : Volume mixing ratio of co2 in the first layer |
|---|
| 21 | REAL, intent(in) :: ps_GCM_2(ngrid,timelen) ! physical point field : Surface pressure in the GCM |
|---|
| 22 | REAL, intent(in) :: global_ave_press_GCM |
|---|
| 23 | REAL, intent(in) :: global_ave_press_new |
|---|
| 24 | REAL, intent(in) :: tendencies_co2_ice_phys_ini(ngrid,nslope) ! physical point field : Evolution of perenial ice over one year |
|---|
| 25 | REAL, intent(in) :: co2ice_slope(ngrid,nslope) |
|---|
| 26 | |
|---|
| 27 | ! OUTPUT |
|---|
| 28 | REAL, intent(inout) :: tendencies_co2_ice_phys(ngrid,nslope) ! physical point field : Evolution of perenial ice over one year |
|---|
| 29 | |
|---|
| 30 | ! local: |
|---|
| 31 | ! ---- |
|---|
| 32 | |
|---|
| 33 | INTEGER :: i,t,islope |
|---|
| 34 | REAL :: eps, sigma, L, beta, alpha, coef, ave |
|---|
| 35 | |
|---|
| 36 | eps=0.95 |
|---|
| 37 | sigma=5.678E-8 |
|---|
| 38 | L=5.71*10**5 |
|---|
| 39 | beta=3182.48 |
|---|
| 40 | alpha=23.3494 |
|---|
| 41 | |
|---|
| 42 | coef=669*88875*eps*sigma/L |
|---|
| 43 | |
|---|
| 44 | ! Evolution of the water ice for each physical point |
|---|
| 45 | do i=1,ngrid |
|---|
| 46 | do islope=1,nslope |
|---|
| 47 | ave=0. |
|---|
| 48 | ! if(abs(tendencies_co2_ice_phys(i,islope)).gt.1e-4) then |
|---|
| 49 | if(co2ice_slope(i,islope).gt.1e-4 .and. abs(tendencies_co2_ice_phys(i,islope)).gt.1e-5) then |
|---|
| 50 | do t=1,timelen |
|---|
| 51 | ave=ave+(beta/(alpha-log(vmr_co2_gcm(i,t)*ps_GCM_2(i,t)/100.)))**4 & |
|---|
| 52 | -(beta/(alpha-log(vmr_co2_pem(i,t)*ps_GCM_2(i,t)*(global_ave_press_new/global_ave_press_GCM)/100.)))**4 |
|---|
| 53 | enddo |
|---|
| 54 | endif |
|---|
| 55 | if(ave.lt.1e-4) ave = 0. |
|---|
| 56 | tendencies_co2_ice_phys(i,islope)=tendencies_co2_ice_phys_ini(i,islope)-coef*ave/timelen |
|---|
| 57 | enddo |
|---|
| 58 | enddo |
|---|
| 59 | |
|---|
| 60 | END SUBROUTINE recomp_tend_co2_slope |
|---|
