LMDZ
print_debug_phys.F90
Go to the documentation of this file.
1 SUBROUTINE print_debug_phys (i,debug_lev,text)
2 
3 use dimphy
4 use phys_local_var_mod
5 use phys_state_var_mod
6 IMPLICIT NONE
7 integer i,debug_lev
8 CHARACTER*(*) text
9 
10 
11 integer k
12 
13 print*,'PLANTAGE POUR LE POINT i=',i,text
14 print*,'l u, v, T, q, ql'
15 DO k = 1, klev
16  write(*,'(i3,2f8.4,3f14.4,2e14.2)') k,rlon(i),rlat(i),u_seri(i,k),v_seri(i,k),t_seri(i,k),q_seri(i,k),ql_seri(i,k)
17 ENDDO
18 
19 RETURN
20 END
phys_local_var_mod
Definition: phys_local_var_mod.F90:4
print_debug_phys
subroutine print_debug_phys(i, debug_lev, text)
Definition: print_debug_phys.F90:2
dimphy::klev
integer, save klev
Definition: dimphy.F90:7
phys_state_var_mod::rlon
real, dimension(:), allocatable, save rlon
Definition: phys_state_var_mod.F90:24
phys_local_var_mod::q_seri
real, dimension(:,:), allocatable, save q_seri
Definition: phys_local_var_mod.F90:12
phys_state_var_mod::rlat
real, dimension(:), allocatable, save rlat
Definition: phys_state_var_mod.F90:24
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
phys_local_var_mod::t_seri
real, dimension(:,:), allocatable, save t_seri
Definition: phys_local_var_mod.F90:12
phys_local_var_mod::ql_seri
real, dimension(:,:), allocatable, save ql_seri
Definition: phys_local_var_mod.F90:14
phys_state_var_mod
Definition: phys_state_var_mod.F90:4
dimphy
Definition: dimphy.F90:1
phys_local_var_mod::v_seri
real, dimension(:,:), allocatable, save v_seri
Definition: phys_local_var_mod.F90:16