LMDZ
Functions | Variables
write_histday_seri.h File Reference

Go to the source code of this file.

Functions

!$Id klon zx_tmp_fi2d (i)
 
!$Id klon klev DO klon!IM zx_tmp_fi3d (i, k)
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev zx_tmp (ij)
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM nbp_lat!DO nbp_lon klev klon airetot nbp_lat DO nbp_lon *pi *RA *RA !zx_tmp_fi2d (1:klon)
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM nbp_lat!DO nbp_lon klev klon airetot nbp_lat DO nbp_lon *pi *RA *RA klon !zx_tmp_fi2d (i)
 

Variables

!$Id __pad32__
 
!$Id klon klev DO i =1
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon ij
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot ='
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM mountor
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM nbp_lat!DO nbp_lon !ij
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM nbp_lat!DO nbp_lon klev !airetot
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM nbp_lat!DO nbp_lon klev klon airetotphy ='
 
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM nbp_lat!DO nbp_lon klev klon airetot nbp_lat DO nbp_lon airetotij ='
 

Function Documentation

! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev !IM END !IM nbp_lat ! DO nbp_lon klev klon airetot nbp_lat DO nbp_lon * pi* RA* RA !zx_tmp_fi2d ( 1:klon  )
! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev !IM END !IM nbp_lat ! DO nbp_lon klev klon airetot nbp_lat DO nbp_lon * pi* RA* RA klon !zx_tmp_fi2d ( i  )
! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon klev zx_tmp ( ij  )
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM nbp_lat!DO nbp_lon klev klon airetot nbp_lat DO nbp_lon *pi *RA *RA klon klon!IM zx_tmp_fi2d ( i  )
Initial value:
=zxfluxu(i,1)*RA* cos(pir* rlat(i))
ENDDO
!
ok_msk=.FALSE.
CALL moyglo_pondaire(klon, zx_tmp_fi2d, cell_area, &
ok_msk, msk, moyglo)
zx_tmp_fi2d(1:klon)=moyglo
!
CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d)
CALL histwrite(nid_day_seri,"frictor",itau_w,zx_tmp_2d, &
nbp_lon*nbp_lat,ndex2d)
!
! mountain torque
!
!IM 190504 BEG
CALL gr_fi_dyn(1,klon,nbp_lon+1,nbp_lat,cell_area,airedyn)
CALL gr_fi_dyn(klev+1,klon,nbp_lon+1,nbp_lat,paprs,padyn)
CALL gr_fi_dyn(1,klon,nbp_lon+1,nbp_lat,rlat,rlatdyn)
mountor=0.
airetot=0.
DO j = 1
moyglo_pondaire
subroutine moyglo_pondaire(nhori, champ, aire, ok_msk, msk, moyglo)
Definition: moyglo_aire.F90:5
klon
INTERFACE SUBROUTINE RRTM_ECRT_140GP klon
Definition: rrtm_ecrt_140gp.intfb.h:3
zx_tmp_fi2d
!$Id klon zx_tmp_fi2d(i)
airetot
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot
Definition: write_histday_seri.h:109
FALSE
!$Id ***************************************!ECRITURE DU FALSE
Definition: write_histrac.h:9
dimphy::klev
integer, save klev
Definition: dimphy.F90:7
mod_grid_phy_lmdz::nbp_lat
integer, save nbp_lat
Definition: mod_grid_phy_lmdz.F90:16
zx_tmp_2d
!FH On elimine toutes les clefs physiques dans la dynamique zx_tmp_2d
Definition: write_paramLMDZ_dyn.h:9
j
!$Id Turb_fcg!implicit none!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc!cette routine permet d obtenir hq et ainsi de!pouvoir calculer la convergence et le cisaillement dans la physiq!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc INTEGER klev REAL j
Definition: 1Dconv.h:27
paprs
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le paprs
Definition: calcul_STDlev.h:144
i
!$Id klon klev DO i
Definition: write_histday_seri.h:40
rlat
c c $Id c nbregdyn DO klon c rlat(i) c ENDIF!lon c ENDIF!lat ENDIF!pctsrf ENDDO!klon ENDDO!nbregdyn cIM 190504 ENDIF!ok_regdyn cIM somme de toutes les nhistoW BEG IF(debut) THEN DO nreg
gr_fi_ecrit
subroutine gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit)
Definition: gr_fi_ecrit.F90:5
itau_w
!FH On elimine toutes les clefs physiques dans la dynamique itau_w
Definition: write_paramLMDZ_dyn.h:9
mountor
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM mountor
Definition: write_histday_seri.h:111
gr_fi_dyn
subroutine gr_fi_dyn(nfield, ngrid, im, jm, pfi, pdyn)
Definition: gr_fi_dyn.F:5
geometry_mod::cell_area
real, dimension(:), allocatable, save cell_area
Definition: geometry_mod.F90:29
mod_grid_phy_lmdz::nbp_lon
integer, save nbp_lon
Definition: mod_grid_phy_lmdz.F90:15
RA
!$Id RNAVO!A1 Astronomical constants REAL ROMEGA!A1 bis Constantes concernant l orbite de la R_incl!A1 Geoide REAL RA
Definition: YOMCST.h:11
!$Id klon klev DO klon!IM klev DO klon zx_tmp_fi3d ( i  ,
k   
)
Initial value:
=u_seri(i,k)*RA*cos(pir* rlat(i))
ENDDO
ENDDO
!
CALL moyglo_pondaima(klon, klev, zx_tmp_fi3d, &
cell_area, paprs, moyglo)
zx_tmp_fi2d(1:klon)=moyglo
!
CALL gr_fi_ecrit(1, klon,nbp_lon,nbp_lat, zx_tmp_fi2d,zx_tmp_2d)
CALL histwrite(nid_day_seri,"momang",itau_w,zx_tmp_2d, &
nbp_lon*nbp_lat,ndex2d)
!
! friction torque
!
DO i=1
klon
INTERFACE SUBROUTINE RRTM_ECRT_140GP klon
Definition: rrtm_ecrt_140gp.intfb.h:3
zx_tmp_fi2d
!$Id klon zx_tmp_fi2d(i)
dimphy::klev
integer, save klev
Definition: dimphy.F90:7
moyglo_pondaima
subroutine moyglo_pondaima(nhori, nvert, champ, aire, pbord, moyglo)
Definition: moyglo_aire.F90:63
mod_grid_phy_lmdz::nbp_lat
integer, save nbp_lat
Definition: mod_grid_phy_lmdz.F90:16
k
c c $Id c c calculs statistiques distribution nuage ftion du regime dynamique c c Ce calcul doit etre fait a partir de valeurs mensuelles CALL nbregdyn DO k
Definition: calcul_REGDYN.h:12
zx_tmp_fi3d
!$Id klon klev DO klon!IM zx_tmp_fi3d(i, k)
zx_tmp_2d
!FH On elimine toutes les clefs physiques dans la dynamique zx_tmp_2d
Definition: write_paramLMDZ_dyn.h:9
paprs
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL ulevSTD CALL &zphi philevSTD CALL &zx_rh rhlevSTD!DO klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon klev DO klon du jour ou toutes les read_climoz CALL &zphi geo500!IM on interpole a chaque pas de temps le paprs
Definition: calcul_STDlev.h:144
i
!$Id klon klev DO i
Definition: write_histday_seri.h:40
rlat
c c $Id c nbregdyn DO klon c rlat(i) c ENDIF!lon c ENDIF!lat ENDIF!pctsrf ENDDO!klon ENDDO!nbregdyn cIM 190504 ENDIF!ok_regdyn cIM somme de toutes les nhistoW BEG IF(debut) THEN DO nreg
u_seri
!$Id itapm1 ENDIF!IM on interpole les champs sur les niveaux STD de pression!IM a chaque pas de temps de la physique c!positionnement de l argument logique a false c!pour ne pas recalculer deux fois la meme chose!c!a cet effet un appel a plevel_new a ete deplace c!a la fin de la serie d appels c!la boucle DO nlevSTD a ete internalisee c!dans d ou la creation de cette routine c c!CALL & u_seri
Definition: calcul_STDlev.h:26
friction
subroutine friction(ucov, vcov, pdt)
Definition: friction.F:6
gr_fi_ecrit
subroutine gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit)
Definition: gr_fi_ecrit.F90:5
itau_w
!FH On elimine toutes les clefs physiques dans la dynamique itau_w
Definition: write_paramLMDZ_dyn.h:9
geometry_mod::cell_area
real, dimension(:), allocatable, save cell_area
Definition: geometry_mod.F90:29
mod_grid_phy_lmdz::nbp_lon
integer, save nbp_lon
Definition: mod_grid_phy_lmdz.F90:15
RA
!$Id RNAVO!A1 Astronomical constants REAL ROMEGA!A1 bis Constantes concernant l orbite de la R_incl!A1 Geoide REAL RA
Definition: YOMCST.h:11

Variable Documentation

! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev !IM END !IM nbp_lat ! DO nbp_lon klev klon airetot !airetot
Initial value:
=airetot+airedyn(i,j)
! airetot=airetot+airedyn(i,j)
! ENDDO !k
! ENDDO !i
! ENDDO !j
!
DO i=1
airetot
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot
Definition: write_histday_seri.h:109
k
c c $Id c c calculs statistiques distribution nuage ftion du regime dynamique c c Ce calcul doit etre fait a partir de valeurs mensuelles CALL nbregdyn DO k
Definition: calcul_REGDYN.h:12
j
!$Id Turb_fcg!implicit none!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc!cette routine permet d obtenir hq et ainsi de!pouvoir calculer la convergence et le cisaillement dans la physiq!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc INTEGER klev REAL j
Definition: 1Dconv.h:27
i
!$Id klon klev DO i
Definition: write_histday_seri.h:40

Definition at line 129 of file write_histday_seri.h.

! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev !IM END !IM nbp_lat ! DO nbp_lon !ij
Initial value:
=i+(nbp_lon+1)*(j-1)
! DO k = 1
k
c c $Id c c calculs statistiques distribution nuage ftion du regime dynamique c c Ce calcul doit etre fait a partir de valeurs mensuelles CALL nbregdyn DO k
Definition: calcul_REGDYN.h:12
j
!$Id Turb_fcg!implicit none!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc!cette routine permet d obtenir hq et ainsi de!pouvoir calculer la convergence et le cisaillement dans la physiq!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc INTEGER klev REAL j
Definition: 1Dconv.h:27
i
!$Id klon klev DO i
Definition: write_histday_seri.h:40
mod_grid_phy_lmdz::nbp_lon
integer, save nbp_lon
Definition: mod_grid_phy_lmdz.F90:15

Definition at line 127 of file write_histday_seri.h.

! $Id __pad32__

Definition at line 16 of file write_histday_seri.h.

!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM nbp_lat!DO nbp_lon klev klon airetot nbp_lat DO nbp_lon airetot ='

Definition at line 109 of file write_histday_seri.h.

! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev !IM END !IM nbp_lat ! DO nbp_lon klev klon airetot nbp_lat DO nbp_lon airetotij ='

Definition at line 147 of file write_histday_seri.h.

! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev !IM END !IM nbp_lat ! DO nbp_lon klev klon airetotphy ='

Definition at line 138 of file write_histday_seri.h.

! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev !IM END !IM nbp_lat ! DO nbp_lon klev klon airetot nbp_lat DO i =1

Definition at line 40 of file write_histday_seri.h.

! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon ij
Initial value:
=i+(nbp_lon+1)*(j-1)
zx_tmp(ij)=0.
DO k = 1
zx_tmp
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev zx_tmp(ij)
k
c c $Id c c calculs statistiques distribution nuage ftion du regime dynamique c c Ce calcul doit etre fait a partir de valeurs mensuelles CALL nbregdyn DO k
Definition: calcul_REGDYN.h:12
ij
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon ij
Definition: write_histday_seri.h:96
j
!$Id Turb_fcg!implicit none!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc!cette routine permet d obtenir hq et ainsi de!pouvoir calculer la convergence et le cisaillement dans la physiq!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc INTEGER klev REAL j
Definition: 1Dconv.h:27
i
!$Id klon klev DO i
Definition: write_histday_seri.h:40
mod_grid_phy_lmdz::nbp_lon
integer, save nbp_lon
Definition: mod_grid_phy_lmdz.F90:15

Definition at line 96 of file write_histday_seri.h.

! $Id klon klev DO klon !IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev !IM END !IM mountor
Initial value:
=mountor/(airetot*airetot)
mountor=mountor/airetot
!
!IM 190504 END
zx_tmp_2d(1:nbp_lon,1:nbp_lat)=mountor
CALL histwrite(nid_day_seri,"mountor",itau_w,zx_tmp_2d, &
nbp_lon*nbp_lat,ndex2d)
!
ENDIF !(1.EQ.0) THEN
!
!
CALL gr_fi_dyn(1,klon,nbp_lon+1,nbp_lat,cell_area,airedyn)
CALL gr_fi_ecrit(1,klon,nbp_lon,nbp_lat,cell_area,zx_tmp_2d)
airetot=0.
! DO j = 1
klon
INTERFACE SUBROUTINE RRTM_ECRT_140GP klon
Definition: rrtm_ecrt_140gp.intfb.h:3
airetot
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot
Definition: write_histday_seri.h:109
mod_grid_phy_lmdz::nbp_lat
integer, save nbp_lat
Definition: mod_grid_phy_lmdz.F90:16
zx_tmp_2d
!FH On elimine toutes les clefs physiques dans la dynamique zx_tmp_2d
Definition: write_paramLMDZ_dyn.h:9
j
!$Id Turb_fcg!implicit none!ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc!cette routine permet d obtenir hq et ainsi de!pouvoir calculer la convergence et le cisaillement dans la physiq!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc INTEGER klev REAL j
Definition: 1Dconv.h:27
gr_fi_ecrit
subroutine gr_fi_ecrit(nfield, nlon, iim, jjmp1, fi, ecrit)
Definition: gr_fi_ecrit.F90:5
itau_w
!FH On elimine toutes les clefs physiques dans la dynamique itau_w
Definition: write_paramLMDZ_dyn.h:9
mountor
!$Id klon klev DO klon!IM klev DO klon klon nbp_lat DO nbp_lon klev airetot klev!IM END!IM mountor
Definition: write_histday_seri.h:111
gr_fi_dyn
subroutine gr_fi_dyn(nfield, ngrid, im, jm, pfi, pdyn)
Definition: gr_fi_dyn.F:5
geometry_mod::cell_area
real, dimension(:), allocatable, save cell_area
Definition: geometry_mod.F90:29
mod_grid_phy_lmdz::nbp_lon
integer, save nbp_lon
Definition: mod_grid_phy_lmdz.F90:15

Definition at line 111 of file write_histday_seri.h.