LMDZ
write_grads_dyn.h
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  if (callinigrads) then
5 
6  string10='dyn'
7  call inigrads(1,iip1
8  s ,rlonv,180./pi,-180.,180.,jjp1,rlatu,-90.,90.,180./pi
9  s ,llm,presnivs,1.
10  s ,dtvr*iperiod,string10,'dyn_zon ')
11 
12  callinigrads=.false.
13 
14 
15  endif
16 
17  string10='ps'
18  CALL wrgrads(1,1,ps,string10,string10)
19 
20  string10='u'
21  CALL wrgrads(1,llm,unat,string10,string10)
22  string10='v'
23  CALL wrgrads(1,llm,vnat,string10,string10)
24  string10='teta'
25  CALL wrgrads(1,llm,teta,string10,string10)
26  do iq=1,nqtot
27  string10='q'
28  write(string10(2:2),'(i1)') iq
29  CALL wrgrads(1,llm,q(:,:,iq),string10,string10)
30  enddo
31 
call_calfis_mod::q
real, dimension(:,:,:), pointer, save q
Definition: call_calfis_mod.F90:10
leapfrog_mod::unat
real, dimension(:,:), pointer, save unat
Definition: leapfrog_mod.F90:30
llm
!$Id Turb_fcg_gcssold get_uvd hqturb_gcssold endif!large scale llm day day1 day day1 *dt_toga endif!time annee_ref dt_toga u_toga vq_toga w_prof vq_prof llm day day1 day day1 *dt_dice endif!time annee_ref dt_dice swup_dice vg_dice omega_dice tg_prof vg_profd w_profd omega_profd!do llm!print llm l llm
Definition: 1D_interp_cases.h:103
pi
!$Id mode_top_bound COMMON comconstr && pi
Definition: comconst.h:7
rlatu
!$Header!CDK comgeom COMMON comgeom rlatu
Definition: comgeom.h:25
infotrac::nqtot
integer, save nqtot
Definition: infotrac.F90:6
call_calfis_mod::teta
real, dimension(:,:), pointer, save teta
Definition: call_calfis_mod.F90:6
leapfrog_mod::vnat
real, dimension(:,:), pointer, save vnat
Definition: leapfrog_mod.F90:31
false
!$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 false
Definition: calcul_STDlev.h:26
inigrads
subroutine inigrads(if, im, x, fx, xmin, xmax, jm, y, ymin, ymax, fy, lm, z, fz, dt, file, titlel)
Definition: inigrads.F:7
jjp1
!$Header jjp1
Definition: paramet.h:14
u
!$Id Turb_fcg_gcssold get_uvd hqturb_gcssold endif!large scale llm day day1 day day1 *dt_toga endif!time annee_ref dt_toga u_toga vq_toga w_prof vq_prof llm u(l)
dtvr
!$Id mode_top_bound COMMON comconstr dtvr
Definition: comconst.h:7
wrgrads
subroutine wrgrads(if, nl, field, name, titlevar)
Definition: wrgrads.F:5
control_mod::iperiod
integer, save iperiod
Definition: control_mod.F90:16
call_calfis_mod::ps
real, dimension(:), pointer, save ps
Definition: call_calfis_mod.F90:8
vertical_layers_mod::presnivs
real, dimension(:), allocatable, save presnivs
Definition: vertical_layers_mod.F90:11
rlonv
!$Header!CDK comgeom COMMON comgeom rlonv
Definition: comgeom.h:25