/[lmdze]/trunk/Sources/dyn3d/leapfrog.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/leapfrog.f

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

revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC revision 107 by guez, Thu Sep 11 15:09:15 2014 UTC
# Line 15  contains Line 15  contains
15      use caladvtrac_m, only: caladvtrac      use caladvtrac_m, only: caladvtrac
16      use caldyn_m, only: caldyn      use caldyn_m, only: caldyn
17      USE calfis_m, ONLY: calfis      USE calfis_m, ONLY: calfis
18      USE comconst, ONLY: daysec, dtphys, dtvr      USE comconst, ONLY: daysec, dtvr
19      USE comgeom, ONLY: aire_2d, apoln, apols      USE comgeom, ONLY: aire_2d, apoln, apols
20      USE disvert_m, ONLY: ap, bp      USE disvert_m, ONLY: ap, bp
21      USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, nday, offline, &      USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, nday, offline, &
# Line 120  contains Line 120  contains
120         else         else
121            ! Matsuno            ! Matsuno
122            dt = dtvr            dt = dtvr
123            if (ok_guide .and. (itaufin - itau - 1) * dtvr > 21600.) &            if (ok_guide .and. itaufin - itau - 1 > day_step / 4) &
124                 call guide(itau, ucov, vcov, teta, q, masse, ps)                 call guide(itau, ucov, vcov, teta, q, ps)
125            vcovm1 = vcov            vcovm1 = vcov
126            ucovm1 = ucov            ucovm1 = ucov
127            tetam1 = teta            tetam1 = teta
128            massem1 = masse            massem1 = masse
129            psm1 = ps            psm1 = ps
130            finvmaold = masse            finvmaold = masse
131            CALL filtreg(finvmaold, jjm + 1, llm, - 2, 2, .TRUE.)            CALL filtreg(finvmaold, direct = .false., intensive = .false.)
132         end if         end if
133    
134         ! Calcul des tendances dynamiques:         ! Calcul des tendances dynamiques:
Legend:
Removed from v.97  
changed lines
  Added in v.107
  ViewVC Help
Powered by ViewVC 1.1.21