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

Diff of /trunk/dyn3d/leapfrog.f

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

revision 260 by guez, Tue Mar 6 17:18:33 2018 UTC revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 23  contains Line 23  contains
23      USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, nday, &      USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, nday, &
24           iflag_phys, iecri           iflag_phys, iecri
25      USE conf_guide_m, ONLY: ok_guide      USE conf_guide_m, ONLY: ok_guide
26      USE dimens_m, ONLY: iim, jjm, llm, nqmx      USE dimensions, ONLY: iim, jjm, llm, nqmx
27      use dissip_m, only: dissip      use dissip_m, only: dissip
28      USE dynetat0_m, ONLY: day_ini      USE dynetat0_m, ONLY: day_ini
29      use dynredem1_m, only: dynredem1      use dynredem1_m, only: dynredem1
# Line 36  contains Line 36  contains
36      use integrd_m, only: integrd      use integrd_m, only: integrd
37      use nr_util, only: assert      use nr_util, only: assert
38      USE temps, ONLY: itau_dyn      USE temps, ONLY: itau_dyn
     use writedynav_m, only: writedynav  
39      use writehist_m, only: writehist      use writehist_m, only: writehist
40    
41      ! Variables dynamiques:      ! Variables dynamiques:
# Line 203  contains Line 202  contains
202         END IF         END IF
203    
204         IF (MOD(itau + 1, iperiod) == 0) THEN         IF (MOD(itau + 1, iperiod) == 0) THEN
           ! \'Ecriture du fichier histoire moyenne:  
           CALL writedynav(vcov, ucov, teta, pk, phi, q, masse, ps, phis, &  
                time = itau + 1)  
205            call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, &            call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, &
206                 q(:, :, :, 1))                 q(:, :, :, 1))
207         ENDIF         ENDIF
208    
209         IF (MOD(itau + 1, iecri * day_step) == 0) THEN         IF (MOD(itau + 1, iecri) == 0) THEN
210            CALL geopot(teta, pk, pks, phis, phi)            CALL geopot(teta, pk, pks, phis, phi)
211            CALL writehist(itau, vcov, ucov, teta, phi, masse, ps)            CALL writehist(vcov, ucov, teta, pk, phi, q, masse, ps, &
212                   itau_w = itau_dyn + itau + 1)
213         END IF         END IF
214      end do time_integration      end do time_integration
215    
Legend:
Removed from v.260  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21