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

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

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

revision 154 by guez, Tue Jun 16 15:23:29 2015 UTC revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC
# Line 8  contains Line 8  contains
8         PCLDLU, PVIEW, PCOLR, PCOLR0, PTOPLW, PSOLLW, PTOPLW0, PSOLLW0, &         PCLDLU, PVIEW, PCOLR, PCOLR0, PTOPLW, PSOLLW, PTOPLW0, PSOLLW0, &
9         psollwdown, plwup, plwdn, plwup0, plwdn0)         psollwdown, plwup, plwdn, plwup0, plwdn0)
10    
11        use lwbv_m, only: lwbv
12      use LWU_m, only: LWU      use LWU_m, only: LWU
13      USE suphec_m, ONLY: md, rcpd, rday, rg, rmo3      USE suphec_m, ONLY: md, rcpd, rday, rg, rmo3
14      USE raddim, ONLY: kdlon, kflev      USE raddim, ONLY: kdlon, kflev
# Line 93  contains Line 94  contains
94            ENDDO            ENDDO
95         ENDDO         ENDDO
96         CALL LWU(PAER, PDP, PPMB, ZOZ, PTAVE, PVIEW, PWV, ZABCU)         CALL LWU(PAER, PDP, PPMB, ZOZ, PTAVE, PVIEW, PWV, ZABCU)
97         CALL LWBV(ILIM, PDP, PDT0, PEMIS, PPMB, PTL, PTAVE, ZABCU, &         CALL LWBV(ILIM, PDT0, PEMIS, PPMB, PTL, PTAVE, ZABCU, &
98              ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB)              ZFLUC, ZBINT, ZBSUI, ZCTS, ZCNTRB)
99         itaplw0 = 0         itaplw0 = 0
100      ENDIF      ENDIF
Legend:
Removed from v.154  
changed lines
  Added in v.155
  ViewVC Help
Powered by ViewVC 1.1.21