/[lmdze]/trunk/libf/phylmd/newmicro.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/newmicro.f90

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 11  Line 11 
11       s                  cldtaupi, re, fl)       s                  cldtaupi, re, fl)
12        use dimens_m        use dimens_m
13        use dimphy        use dimphy
14        use YOMCST        use SUPHEC_M
15        use nuagecom        use nuagecom
16        IMPLICIT none        IMPLICIT none
17  c======================================================================  c======================================================================
# Line 42  c======================================= Line 42  c=======================================
42  C  C
43  c  c
44        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
45        real pplay(klon,klev)        real, intent(in):: pplay(klon,klev)
46        REAL t(klon,klev)        REAL t(klon,klev)
47  c  c
48        REAL pclc(klon,klev)        REAL pclc(klon,klev)
Legend:
Removed from v.3  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21