/[lmdze]/trunk/Sources/phylmd/phystokenc.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/phystokenc.f

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

revision 220 by guez, Mon Feb 27 15:44:55 2017 UTC revision 221 by guez, Thu Apr 20 14:44:47 2017 UTC
# Line 6  contains Line 6  contains
6    
7    SUBROUTINE phystokenc(pdtphys, pt, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &    SUBROUTINE phystokenc(pdtphys, pt, pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, &
8         pfm_therm, pentr_therm, pcoefh, yu1, yv1, ftsol, pctsrf, frac_impa, &         pfm_therm, pentr_therm, pcoefh, yu1, yv1, ftsol, pctsrf, frac_impa, &
9         frac_nucl, pphis, paire, dtime)         frac_nucl, pphis, paire)
10    
11      ! From phylmd/phystokenc.F, version 1.2, 2004/06/22 11:45:35      ! From phylmd/phystokenc.F, version 1.2, 2004/06/22 11:45:35
12      ! Author: Fr\'ed\'eric Hourdin      ! Author: Fr\'ed\'eric Hourdin
# Line 60  contains Line 60  contains
60    
61      REAL, INTENT(IN):: pphis(klon)      REAL, INTENT(IN):: pphis(klon)
62      real, intent(in):: paire(klon)      real, intent(in):: paire(klon)
     REAL, INTENT (IN):: dtime  
63    
64      ! Local:      ! Local:
65    
# Line 100  contains Line 99  contains
99    
100      ! Couche limite:      ! Couche limite:
101    
102      IF (iadvtr==0) CALL initphysto('phystoke', dtime, dtime * istphy, &      IF (iadvtr==0) CALL initphysto('phystoke', pdtphys, pdtphys * istphy, &
103           dtime * istphy, physid)           pdtphys * istphy, physid)
104    
105      CALL histwrite(physid, 'phis', itap, gr_phy_write(pphis))      CALL histwrite(physid, 'phis', itap, gr_phy_write(pphis))
106      CALL histwrite(physid, 'aire', itap, gr_phy_write(paire))      CALL histwrite(physid, 'aire', itap, gr_phy_write(paire))
Legend:
Removed from v.220  
changed lines
  Added in v.221
  ViewVC Help
Powered by ViewVC 1.1.21