/[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 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC
# Line 9  contains Line 9  contains
9         frac_impa, frac_nucl, pphis, paire, dtime, itap)         frac_impa, frac_nucl, pphis, paire, dtime, itap)
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édéric Hourdin      ! Author: Fr\'ed\'eric Hourdin
13      ! Objet : écriture des variables pour transport offline      ! Objet : \'ecriture des variables pour transport offline
14    
15        use gr_fi_ecrit_m, only: gr_fi_ecrit
16      USE histwrite_m, ONLY: histwrite      USE histwrite_m, ONLY: histwrite
17      USE histsync_m, ONLY: histsync      USE histsync_m, ONLY: histsync
18      USE dimens_m, ONLY: iim, jjm, nqmx      USE dimens_m, ONLY: iim, jjm
19      USE indicesol, ONLY: nbsrf      USE indicesol, ONLY: nbsrf
20        use initphysto_m, only: initphysto
21      USE dimphy, ONLY: klev, klon      USE dimphy, ONLY: klev, klon
22      USE tracstoke, ONLY: istphy      USE tracstoke, ONLY: istphy
23    
# Line 109  contains Line 111  contains
111    
112      IF (iadvtr==0) THEN      IF (iadvtr==0) THEN
113         CALL initphysto('phystoke', rlon, rlat, dtime, dtime*istphy, &         CALL initphysto('phystoke', rlon, rlat, dtime, dtime*istphy, &
114              dtime*istphy, nqmx, physid)              dtime*istphy, physid)
115      END IF      END IF
116    
117      i = itap      i = itap
Legend:
Removed from v.134  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.21