doxy_201512/html/laplacien__gam_8_f_source.html

 !

 ! $Header$

 !

       SUBROUTINE laplacien_gam ( klevel, cuvsga, cvusga, unsaigam ,

      *                        unsapolnga, unsapolsga, teta, divgra )


 c  P. Le Van

 c

 c   ************************************************************

 c

 c      ....   calcul de  (div( grad ))   de   teta  .....

 c   ************************************************************

 c    klevel et teta  sont des arguments  d'entree pour le s-prog

 c      divgra     est  un argument  de sortie pour le s-prog

 c

       IMPLICIT NONE

 c

 #include "dimensions.h"

 #include "paramet.h"

 #include "comgeom.h"


 c

 c    ............     variables  en arguments    ..........

 c

       INTEGER klevel

       REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )

       REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1),

      *     unsapolnga, unsapolsga

 c

 c    ...........    variables  locales    .................

 c

       REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)

 c    ......................................................


 c

 c

 c   ...  cvuscugam  = ( cvu/ cu ) ** (- gamdissip )

 c   ...  cuvscvgam  = ( cuv/ cv ) ** (- gamdissip )  calcules dans inigeom  ..

 c   ...  unsairegam =  1. /  aire ** (- gamdissip )

 c


       CALL scopy ( ip1jmp1 * klevel, teta, 1, divgra, 1 )

 c

       CALL   grad ( klevel, divgra, ghx, ghy )

 c

       CALL  diverg_gam ( klevel, cuvsga, cvusga,  unsaigam  ,

      *                 unsapolnga, unsapolsga, ghx , ghy , divgra )


 c


       RETURN

       END

grad
subroutine grad(klevel, pg, pgx, pgy)
Definition: grad.F:5

ip1jmp1
!$Header llmm1 INTEGER ip1jmp1
Definition: paramet.h:14

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

scopy
subroutine scopy(n, sx, incx, sy, incy)
Definition: cray.F:9

ip1jm
!$Header llmm1 INTEGER ip1jm
Definition: paramet.h:14

diverg_gam
subroutine diverg_gam(klevel, cuvscvgam, cvuscugam, unsairegam, unsapolnga, unsapolsga, x, y, div)
Definition: diverg_gam.F:6

laplacien_gam
subroutine laplacien_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, teta, divgra)
Definition: laplacien_gam.F:6