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 |