/[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 320 by guez, Mon Dec 10 15:54:30 2018 UTC revision 321 by guez, Tue Dec 11 22:48:09 2018 UTC
# Line 21  PROGRAM gcm Line 21  PROGRAM gcm
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
24    use iniadvtrac_m, only: iniadvtrac    use infotrac_init_m, only: infotrac_init
25    use inidissip_m, only: inidissip    use inidissip_m, only: inidissip
26    use inifilr_m, only: inifilr    use inifilr_m, only: inifilr
27    use inithist_m, only: inithist    use inithist_m, only: inithist
# Line 67  PROGRAM gcm Line 67  PROGRAM gcm
67       call ioconf_calendar('360d')       call ioconf_calendar('360d')
68    endif    endif
69    
70    call iniadvtrac    call infotrac_init
71    CALL iniconst    CALL iniconst
72    CALL dynetat0_chosen    CALL dynetat0_chosen
73    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis)    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis)
Legend:
Removed from v.320  
changed lines
  Added in v.321
  ViewVC Help
Powered by ViewVC 1.1.21