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 |
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 |