/[lmdze]/trunk/phylmd/Radlwsw/sw.f
ViewVC logotype

Diff of /trunk/phylmd/Radlwsw/sw.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC revision 70 by guez, Mon Jun 24 15:39:52 2013 UTC
# Line 32  contains Line 32  contains
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:
# Line 157  contains Line 157  contains
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
Legend:
Removed from v.62  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.21