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

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

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

revision 6 by guez, Mon Mar 3 16:32:04 2008 UTC revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC
# Line 39  PROGRAM gcm Line 39  PROGRAM gcm
39    use grid_change, only: dyn_phy, init_dyn_phy    use grid_change, only: dyn_phy, init_dyn_phy
40    use advtrac_m, only: iniadvtrac    use advtrac_m, only: iniadvtrac
41    use leapfrog_m, only: leapfrog    use leapfrog_m, only: leapfrog
42      use dynredem0_m, only: dynredem0
43    
44    IMPLICIT NONE    IMPLICIT NONE
45    
# Line 52  PROGRAM gcm Line 53  PROGRAM gcm
53    REAL ps(ip1jmp1) ! pression au sol (Pa)    REAL ps(ip1jmp1) ! pression au sol (Pa)
54    
55    REAL masse(ip1jmp1, llm) ! masse d'air    REAL masse(ip1jmp1, llm) ! masse d'air
56    REAL phis(ip1jmp1) ! géopotentiel au sol    REAL phis(iim + 1, jjm + 1) ! géopotentiel au sol
57    
58    ! Variables pour le fichier histoire :    ! Variables pour le fichier histoire :
59    REAL time_0    REAL time_0
Legend:
Removed from v.6  
changed lines
  Added in v.7
  ViewVC Help
Powered by ViewVC 1.1.21