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

Diff of /trunk/dyn3d/gcm.f

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

trunk/dyn3d/gcm.f90 revision 79 by guez, Fri Feb 28 17:52:47 2014 UTC trunk/dyn3d/gcm.f revision 98 by guez, Tue May 13 17:23:16 2014 UTC
# Line 8  PROGRAM gcm Line 8  PROGRAM gcm
8    ! "divgrad2", "nxgraro2"). Possibilité de choisir le schéma pour    ! "divgrad2", "nxgraro2"). Possibilité de choisir le schéma pour
9    ! l'advection de "q", en modifiant "iadv" dans "traceur.def".    ! l'advection de "q", en modifiant "iadv" dans "traceur.def".
10    
   USE calendar, only: ioconf_calendar  
11    use comconst, only: daysec, dtvr, iniconst    use comconst, only: daysec, dtvr, iniconst
12    use comgeom, only: rlatu, aire_2d, cu_2d, cv_2d, rlonv, inigeom    use comgeom, only: rlatu, aire_2d, cu_2d, cv_2d, rlonv, inigeom
13    use comgeomphy, only: airephy, cuphy, cvphy, rlatd, rlond    use comgeomphy, only: airephy, cuphy, cvphy, rlatd, rlond
# Line 27  PROGRAM gcm Line 26  PROGRAM gcm
26    use initdynav_m, only: initdynav    use initdynav_m, only: initdynav
27    use inithist_m, only: inithist    use inithist_m, only: inithist
28    use init_dynzon_m, only: init_dynzon    use init_dynzon_m, only: init_dynzon
29      USE ioconf_calendar_m, only: ioconf_calendar
30    use jumble, only: new_unit    use jumble, only: new_unit
31    use leapfrog_m, only: leapfrog    use leapfrog_m, only: leapfrog
32    use suphec_m, only: suphec    use suphec_m, only: suphec
# Line 84  PROGRAM gcm Line 84  PROGRAM gcm
84    ! Lecture du fichier "start.nc" :    ! Lecture du fichier "start.nc" :
85    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0)    CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0)
86    
87    ! On remet le calendrier à zero si demandé :    ! On remet le calendrier à zéro si demandé :
88    if (annee_ref /= anneeref .or. day_ref /= dayref) then    if (raz_date) then
89       print *, 'Attention : les dates initiales lues dans le fichier ' // &       print *, 'On réinitialise à la date lue dans la namelist.'
90            '"start" ne correspondent pas à celles lues dans "gcm.def".'       annee_ref = anneeref
91       if (raz_date) then       day_ref = dayref
92          print *, 'On réinitialise à la date lue dans "gcm.def".'       day_ini = dayref
93          annee_ref = anneeref       itau_dyn = 0
94          day_ref = dayref       time_0 = 0.
95          day_ini = dayref    else
96          itau_dyn = 0       print *, 'On garde les dates du fichier "start".'
         time_0 = 0.  
      else  
         print *, 'On garde les dates du fichier "start".'  
      endif  
   ELSE  
      raz_date = .false.  
97    endif    endif
98    
99    CALL disvert    CALL disvert
Legend:
Removed from v.79  
changed lines
  Added in v.98
  ViewVC Help
Powered by ViewVC 1.1.21