/[lmdze]/trunk/dyn3d/gcm.f
ViewVC logotype

Diff of /trunk/dyn3d/gcm.f

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

revision 312 by guez, Thu Jul 12 14:49:20 2018 UTC revision 313 by guez, Mon Dec 10 15:54:30 2018 UTC
# Line 17  PROGRAM gcm Line 17  PROGRAM gcm
17    use dimensions, only: iim, jjm, llm, nqmx    use dimensions, only: iim, jjm, llm, nqmx
18    USE disvert_m, ONLY : disvert    USE disvert_m, ONLY : disvert
19    use dynetat0_m, only: dynetat0, day_ini    use dynetat0_m, only: dynetat0, day_ini
20      use dynetat0_chosen_m, only: dynetat0_chosen
21    use dynredem0_m, only: dynredem0    use dynredem0_m, only: dynredem0
22    use grid_change, only: dyn_phy, init_dyn_phy    use grid_change, only: dyn_phy, init_dyn_phy
23    use histclo_m, only: histclo    use histclo_m, only: histclo
# Line 68  PROGRAM gcm Line 69  PROGRAM gcm
69    
70    call iniadvtrac    call iniadvtrac
71    CALL iniconst    CALL iniconst
72      CALL dynetat0_chosen
73    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis)    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis)
74    CALL disvert    CALL disvert
75    CALL inigeom ! initialisation de la g\'eometrie    CALL inigeom ! initialisation de la g\'eometrie
Legend:
Removed from v.312  
changed lines
  Added in v.313
  ViewVC Help
Powered by ViewVC 1.1.21