/[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 107 by guez, Thu Sep 11 15:09:15 2014 UTC revision 115 by guez, Fri Sep 19 17:36:20 2014 UTC
# Line 19  contains Line 19  contains
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, &
22           iflag_phys, ok_guide, iecri           iflag_phys, iecri
23        USE conf_guide_m, ONLY: ok_guide
24      USE dimens_m, ONLY: iim, jjm, llm, nqmx      USE dimens_m, ONLY: iim, jjm, llm, nqmx
25      use dissip_m, only: dissip      use dissip_m, only: dissip
26      USE dynetat0_m, ONLY: day_ini      USE dynetat0_m, ONLY: day_ini
# Line 120  contains Line 121  contains
121         else         else
122            ! Matsuno            ! Matsuno
123            dt = dtvr            dt = dtvr
124            if (ok_guide .and. itaufin - itau - 1 > day_step / 4) &            if (ok_guide) call guide(itau, ucov, vcov, teta, q(:, :, :, 1), ps)
                call guide(itau, ucov, vcov, teta, q, ps)  
125            vcovm1 = vcov            vcovm1 = vcov
126            ucovm1 = ucov            ucovm1 = ucov
127            tetam1 = teta            tetam1 = teta
Legend:
Removed from v.107  
changed lines
  Added in v.115
  ViewVC Help
Powered by ViewVC 1.1.21