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 ioipsl |
|
USE histcom |
|
|
|
|
14 |
use dimens_m |
use dimens_m |
15 |
use indicesol |
use indicesol |
16 |
use dimphy |
use dimphy |
36 |
c |
c |
37 |
real pdtphys ! pas d'integration pour la physique (seconde) |
real pdtphys ! pas d'integration pour la physique (seconde) |
38 |
c |
c |
39 |
integer physid, itap |
integer physid |
40 |
|
integer, intent(in):: itap |
41 |
save physid |
save physid |
42 |
integer ndex2d(iim*(jjm+1)),ndex3d(iim*(jjm+1)*klev) |
integer ndex2d(iim*(jjm+1)),ndex3d(iim*(jjm+1)*klev) |
43 |
|
|