/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 9 by guez, Mon Mar 31 13:58:05 2008 UTC
# Line 11  c Line 11  c
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
# Line 38  c   ------- Line 36  c   -------
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    
Legend:
Removed from v.3  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.21