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

Diff of /trunk/dyn3d/leapfrog.f

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

trunk/Sources/dyn3d/leapfrog.f revision 161 by guez, Fri Jul 24 14:27:59 2015 UTC trunk/dyn3d/leapfrog.f revision 263 by guez, Wed Mar 7 14:41:46 2018 UTC
# Line 16  contains Line 16  contains
16      use caladvtrac_m, only: caladvtrac      use caladvtrac_m, only: caladvtrac
17      use caldyn_m, only: caldyn      use caldyn_m, only: caldyn
18      USE calfis_m, ONLY: calfis      USE calfis_m, ONLY: calfis
19      USE comconst, ONLY: daysec, dtvr      USE comconst, ONLY: dtvr
20      USE comgeom, ONLY: aire_2d, apoln, apols      USE comgeom, ONLY: aire_2d, apoln, apols
21      use covcont_m, only: covcont      use covcont_m, only: covcont
22      USE disvert_m, ONLY: ap, bp      USE disvert_m, ONLY: ap, bp
23      USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, nday, offline, &      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 dimens_m, 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
30        use enercin_m, only: enercin
31      USE exner_hyb_m, ONLY: exner_hyb      USE exner_hyb_m, ONLY: exner_hyb
32      use filtreg_scal_m, only: filtreg_scal      use filtreg_scal_m, only: filtreg_scal
     use fluxstokenc_m, only: fluxstokenc  
33      use geopot_m, only: geopot      use geopot_m, only: geopot
34      USE guide_m, ONLY: guide      USE guide_m, ONLY: guide
35      use inidissip_m, only: idissip      use inidissip_m, only: idissip
36      use integrd_m, only: integrd      use integrd_m, only: integrd
37      use nr_util, only: assert      use nr_util, only: assert
     USE pressure_var, ONLY: p3d  
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 64  contains Line 62  contains
62      REAL phi(iim + 1, jjm + 1, llm) ! geopotential      REAL phi(iim + 1, jjm + 1, llm) ! geopotential
63      REAL w(iim + 1, jjm + 1, llm) ! vitesse verticale      REAL w(iim + 1, jjm + 1, llm) ! vitesse verticale
64    
65      ! Variables dynamiques intermediaire pour le transport      ! Variables dynamiques interm\'ediaires pour le transport
66      ! Flux de masse :      ! Flux de masse :
67      REAL pbaru(iim + 1, jjm + 1, llm), pbarv(iim + 1, jjm, llm)      REAL pbaru(iim + 1, jjm + 1, llm), pbarv(iim + 1, jjm, llm)
68    
# Line 74  contains Line 72  contains
72      REAL massem1(iim + 1, jjm + 1, llm)      REAL massem1(iim + 1, jjm + 1, llm)
73    
74      ! Tendances dynamiques      ! Tendances dynamiques
75      REAL dv((iim + 1) * jjm, llm), dudyn(iim + 1, jjm + 1, llm)      REAL dv((iim + 1) * jjm, llm), du(iim + 1, jjm + 1, llm)
76      REAL dteta(iim + 1, jjm + 1, llm)      REAL dteta(iim + 1, jjm + 1, llm)
77      real dp((iim + 1) * (jjm + 1))      real dp(iim + 1, jjm + 1)
78    
79      ! Tendances de la dissipation :      ! Tendances de la dissipation :
80      REAL dvdis(iim + 1, jjm, llm), dudis(iim + 1, jjm + 1, llm)      REAL dvdis(iim + 1, jjm, llm), dudis(iim + 1, jjm + 1, llm)
# Line 98  contains Line 96  contains
96      logical leapf      logical leapf
97      real dt ! time step, in s      real dt ! time step, in s
98    
99        REAL p3d(iim + 1, jjm + 1, llm + 1) ! pressure at layer interfaces, in Pa
100        ! ("p3d(i, j, l)" is at longitude "rlonv(i)", latitude "rlatu(j)",
101        ! for interface "l")
102    
103      !---------------------------------------------------      !---------------------------------------------------
104    
105      print *, "Call sequence information: leapfrog"      print *, "Call sequence information: leapfrog"
# Line 130  contains Line 132  contains
132         ! Calcul des tendances dynamiques:         ! Calcul des tendances dynamiques:
133         CALL geopot(teta, pk, pks, phis, phi)         CALL geopot(teta, pk, pks, phis, phi)
134         CALL caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, &         CALL caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, &
135              dudyn, dv, dteta, dp, w, pbaru, pbarv, &              du, dv, dteta, dp, w, pbaru, pbarv, &
136              conser = MOD(itau, iconser) == 0)              conser = MOD(itau, iconser) == 0)
137    
138         CALL caladvtrac(q, pbaru, pbarv, p3d, masse, teta, pk)         CALL caladvtrac(q, pbaru, pbarv, p3d, masse, teta, pk)
139    
        ! Stokage du flux de masse pour traceurs offline:  
        IF (offline) CALL fluxstokenc(pbaru, pbarv, masse, teta, phi, phis, &  
             dtvr, itau)  
   
140         ! Int\'egrations dynamique et traceurs:         ! Int\'egrations dynamique et traceurs:
141         CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, dudyn, dteta, &         CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, dteta, &
142              dp, vcov, ucov, teta, q(:, :, :, :2), ps, masse, dt, leapf)              dp, vcov, ucov, teta, q(:, :, :, :2), ps, masse, dt, leapf)
143    
144         forall (l = 1: llm + 1) p3d(:, :, l) = ap(l) + bp(l) * ps         forall (l = 1: llm + 1) p3d(:, :, l) = ap(l) + bp(l) * ps
# Line 153  contains Line 151  contains
151            ! Calcul des tendances dynamiques:            ! Calcul des tendances dynamiques:
152            CALL geopot(teta, pk, pks, phis, phi)            CALL geopot(teta, pk, pks, phis, phi)
153            CALL caldyn(itau + 1, ucov, vcov, teta, ps, masse, pk, pkf, phis, &            CALL caldyn(itau + 1, ucov, vcov, teta, ps, masse, pk, pkf, phis, &
154                 phi, dudyn, dv, dteta, dp, w, pbaru, pbarv, conser = .false.)                 phi, du, dv, dteta, dp, w, pbaru, pbarv, conser = .false.)
155    
156            ! integrations dynamique et traceurs:            ! integrations dynamique et traceurs:
157            CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, dudyn, &            CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, &
158                 dteta, dp, vcov, ucov, teta, q(:, :, :, :2), ps, masse, dtvr, &                 dteta, dp, vcov, ucov, teta, q(:, :, :, :2), ps, masse, dtvr, &
159                 leapf=.false.)                 leapf=.false.)
160    
# Line 166  contains Line 164  contains
164            CALL filtreg_scal(pkf, direct = .true., intensive = .true.)            CALL filtreg_scal(pkf, direct = .true., intensive = .true.)
165         end if         end if
166    
167         IF (MOD(itau + 1, iphysiq) == 0 .AND. iflag_phys /= 0) THEN         IF (MOD(itau + 1, iphysiq) == 0 .AND. iflag_phys) THEN
168            CALL calfis(ucov, vcov, teta, q, pk, phis, phi, w, dufi, dvfi, &            CALL calfis(ucov, vcov, teta, q, p3d, pk, phis, phi, w, dufi, dvfi, &
169                 dtetafi, dqfi, dayvrai = itau / day_step + day_ini, &                 dtetafi, dqfi, dayvrai = itau / day_step + day_ini, &
170                 time = REAL(mod(itau, day_step)) / day_step, &                 time = REAL(mod(itau, day_step)) / day_step, &
171                 lafin = itau + 1 == itaufin)                 lafin = itau + 1 == itaufin)
# Line 198  contains Line 196  contains
196            forall (l = 1: llm)            forall (l = 1: llm)
197               teta(:, 1, l) = SUM(aire_2d(:iim, 1) * teta(:iim, 1, l)) &               teta(:, 1, l) = SUM(aire_2d(:iim, 1) * teta(:iim, 1, l)) &
198                    / apoln                    / apoln
199               teta(:, jjm + 1, l) = SUM(aire_2d(:iim, jjm+1) &               teta(:, jjm + 1, l) = SUM(aire_2d(:iim, jjm + 1) &
200                    * teta(:iim, jjm + 1, l)) / apols                    * teta(:iim, jjm + 1, l)) / apols
201            END forall            END forall
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    
# Line 222  contains Line 218  contains
218      ! Calcul des tendances dynamiques:      ! Calcul des tendances dynamiques:
219      CALL geopot(teta, pk, pks, phis, phi)      CALL geopot(teta, pk, pks, phis, phi)
220      CALL caldyn(itaufin, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, &      CALL caldyn(itaufin, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, &
221           dudyn, dv, dteta, dp, w, pbaru, pbarv, &           du, dv, dteta, dp, w, pbaru, pbarv, &
222           conser = MOD(itaufin, iconser) == 0)           conser = MOD(itaufin, iconser) == 0)
223    
224    END SUBROUTINE leapfrog    END SUBROUTINE leapfrog
Legend:
Removed from v.161  
changed lines
  Added in v.263
  ViewVC Help
Powered by ViewVC 1.1.21