/[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 262 by guez, Wed Mar 7 13:46:18 2018 UTC revision 263 by guez, Wed Mar 7 14:41:46 2018 UTC
# Line 8  PROGRAM gcm Line 8  PROGRAM gcm
8    ! "divgrad2", "nxgraro2"). Possibilit\'e de choisir le sch\'ema pour    ! "divgrad2", "nxgraro2"). Possibilit\'e de choisir le sch\'ema pour
9    ! l'advection de "q", en modifiant "iadv" dans "traceur.def".    ! l'advection de "q", en modifiant "iadv" dans "traceur.def".
10    
11    use comconst, only: daysec, dtvr, iniconst    use comconst, only: dtvr, iniconst
12    use comdissnew, only: read_comdissnew    use comdissnew, only: read_comdissnew
13    use comgeom, only:  aire_2d, inigeom    use comgeom, only:  aire_2d, inigeom
14    use comgeomphy, only: airephy    use comgeomphy, only: airephy
# Line 87  PROGRAM gcm Line 87  PROGRAM gcm
87    
88    ! Initialisation des entr\'ees-sorties :    ! Initialisation des entr\'ees-sorties :
89    CALL dynredem0(day_ini + nday, phis)    CALL dynredem0(day_ini + nday, phis)
90    CALL inithist(dtvr, nqmx, t_ops = iecri * daysec, t_wrt = iecri * daysec)    CALL inithist(t_ops = iecri * dtvr, t_wrt = iecri * dtvr)
91    call init_dynzon(dt_app = dtvr * iperiod)    call init_dynzon(dt_app = dtvr * iperiod)
92    
93    CALL conf_guide    CALL conf_guide
Legend:
Removed from v.262  
changed lines
  Added in v.263
  ViewVC Help
Powered by ViewVC 1.1.21