32 |
! 03-11-27 J. QUAAS Introduce aerosol forcings (based on BOUCHER) |
! 03-11-27 J. QUAAS Introduce aerosol forcings (based on BOUCHER) |
33 |
|
|
34 |
USE clesphys, ONLY: bug_ozone |
USE clesphys, ONLY: bug_ozone |
35 |
USE suphec_m, ONLY: rcpd, rday, rg, rmd, rmo3 |
USE suphec_m, ONLY: rcpd, rday, rg, md, rmo3 |
36 |
USE raddim, ONLY: kdlon, kflev |
USE raddim, ONLY: kdlon, kflev |
37 |
|
|
38 |
! ARGUMENTS: |
! ARGUMENTS: |
157 |
*PDP(JL, JK)*(101325.0/PPSOL(JL)) |
*PDP(JL, JK)*(101325.0/PPSOL(JL)) |
158 |
ELSE |
ELSE |
159 |
! Correction MPL 100505 |
! Correction MPL 100505 |
160 |
ZOZ(JL, JK) = POZON(JL, JK)*RMD/RMO3*46.6968/RG*PDP(JL, JK) |
ZOZ(JL, JK) = POZON(JL, JK)*MD/RMO3*46.6968/RG*PDP(JL, JK) |
161 |
ENDIF |
ENDIF |
162 |
ENDDO |
ENDDO |
163 |
ENDDO |
ENDDO |