/[lmdze]/trunk/libf/phylmd/Radlwsw/lw.f
ViewVC logotype

Diff of /trunk/libf/phylmd/Radlwsw/lw.f

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

revision 69 by guez, Thu Jan 6 17:52:19 2011 UTC revision 70 by guez, Mon Jun 24 15:39:52 2013 UTC
# Line 115  C Line 115  C
115        DO k = 1, KFLEV  ! convertir ozone de kg/kg en pa/pa        DO k = 1, KFLEV  ! convertir ozone de kg/kg en pa/pa
116        DO i = 1, KDLON        DO i = 1, KDLON
117  c convertir ozone de kg/kg en pa (modif MPL 100505)  c convertir ozone de kg/kg en pa (modif MPL 100505)
118           ZOZ(i,k) = POZON(i,k)*PDP(i,k) * RMD/RMO3           ZOZ(i,k) = POZON(i,k)*PDP(i,k) * MD/RMO3
119  c        print *,'LW: ZOZ*10**6=',ZOZ(i,k)*1000000.  c        print *,'LW: ZOZ*10**6=',ZOZ(i,k)*1000000.
120        ENDDO        ENDDO
121        ENDDO        ENDDO
Legend:
Removed from v.69  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.21