/[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 15 by guez, Fri Aug 1 15:24:12 2008 UTC revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC
# Line 10  c Line 10  c
10       I                   pcoefh,yu1,yv1,ftsol,pctsrf,       I                   pcoefh,yu1,yv1,ftsol,pctsrf,
11       I                   frac_impa,frac_nucl,       I                   frac_impa,frac_nucl,
12       I                   pphis,paire,dtime,itap)       I                   pphis,paire,dtime,itap)
13        USE ioipsl        USE histwrite_m
14          use histcom
15        use dimens_m        use dimens_m
16        use indicesol        use indicesol
17        use dimphy        use dimphy
# Line 115  c   Couche limite: Line 116  c   Couche limite:
116  c======================================================================  c======================================================================
117    
118        ok_sync = .true.        ok_sync = .true.
         print*,'Dans phystokenc.F'  
       print*,'iadvtr= ',iadvtr  
       print*,'istphy= ',istphy  
       print*,'istdyn= ',istdyn  
119    
120        IF (iadvtr.eq.0) THEN        IF (iadvtr.eq.0) THEN
           
121          CALL initphysto('phystoke',          CALL initphysto('phystoke',
122       . rlon,rlat,dtime, dtime*istphy,dtime*istphy,nqmx,physid)       . rlon,rlat,dtime, dtime*istphy,dtime*istphy,nqmx,physid)
           
         write(*,*) 'apres initphysto ds phystokenc'  
   
           
123        ENDIF        ENDIF
124  c  c
125        ndex2d = 0        ndex2d = 0
Legend:
Removed from v.15  
changed lines
  Added in v.31
  ViewVC Help
Powered by ViewVC 1.1.21