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

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

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

revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC
# Line 116  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.30  
changed lines
  Added in v.31
  ViewVC Help
Powered by ViewVC 1.1.21