LMDZ
vitvert.F90
Go to the documentation of this file.
1 SUBROUTINE vitvert (convm, w)
2 !
3 !-------------------------------------------------------------------------------
4 ! Authors: P. Le Van , Fr. Hourdin.
5 !-------------------------------------------------------------------------------
6 ! Purpose: Compute vertical speed at sigma levels.
7  IMPLICIT NONE
8  include "dimensions.h"
9  include "paramet.h"
10  include "comvert.h"
11 !===============================================================================
12 ! Arguments:
13  REAL, INTENT(IN) :: convm(ip1jmp1,llm)
14  REAL, INTENT(OUT) :: w (ip1jmp1,llm)
15 !===============================================================================
16 ! Notes: Vertical speed is oriented from bottom to top.
17 ! * At ground - level sigma(1): w(i,j,1) = 0.
18 ! * At top - level sigma(llm+1): w(i,j,l) = 0. (not stored in w)
19 !===============================================================================
20 ! Local variables:
21  INTEGER :: l
22 !===============================================================================
23  DO l=1,llmm1; w(:,l+1)=convm(:,l+1)-bp(l+1)*convm(:,1); END DO
24  w(:,1)=0.
25 
26 END SUBROUTINE vitvert
27 
ip1jmp1
!$Header llmm1 INTEGER ip1jmp1
Definition: paramet.h:14
bp
!$Id bp(llm+1)
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
vitvert
subroutine vitvert(convm, w)
Definition: vitvert.F90:2