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

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

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 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 36  c Line 34  c
34  c   divers:  c   divers:
35  c   -------  c   -------
36  c  c
37        real pdtphys ! pas d'integration pour la physique (seconde)        real, intent(in):: 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    
# Line 54  c Line 53  c
53          real pt(klon,klev),t(klon,klev)          real pt(klon,klev),t(klon,klev)
54  c  c
55        REAL, intent(in):: rlon(klon), rlat(klon)        REAL, intent(in):: rlon(klon), rlat(klon)
56        real dtime        real, intent(in):: dtime
57        REAL zx_tmp_3d(iim,jjm+1,klev),zx_tmp_2d(iim,jjm+1)        REAL zx_tmp_3d(iim,jjm+1,klev),zx_tmp_2d(iim,jjm+1)
58    
59  c   Couche limite:  c   Couche limite:
Legend:
Removed from v.3  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21