/[lmdze]/trunk/libf/dyn3d/inidissip.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/inidissip.f90

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

revision 46 by guez, Tue Feb 22 13:49:36 2011 UTC revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC
# Line 7  module inidissip_m Line 7  module inidissip_m
7    private llm    private llm
8    
9    REAL dtdiss    REAL dtdiss
10    integer idissip ! période de la dissipation (en pas)    integer idissip ! période de la dissipation (en pas de temps)
11    real tetaudiv(llm), tetaurot(llm), tetah(llm)    real tetaudiv(llm), tetaurot(llm), tetah(llm)
12    real cdivu, crot, cdivh    real cdivu, crot, cdivh
13    
# Line 25  contains Line 25  contains
25      USE conf_gcm_m, ONLY : iperiod      USE conf_gcm_m, ONLY : iperiod
26      USE dimens_m, ONLY : jjm, llm      USE dimens_m, ONLY : jjm, llm
27      USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1      USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1
28      use new_unit_m, only: new_unit      use l_util, only: new_unit
29      use filtreg_m, only: filtreg      use filtreg_m, only: filtreg
30    
31      ! Variables local to the procedure:      ! Variables local to the procedure:
Legend:
Removed from v.46  
changed lines
  Added in v.47
  ViewVC Help
Powered by ViewVC 1.1.21