/[lmdze]/trunk/dyn3d/Dissipation/gradiv2.f
ViewVC logotype

Diff of /trunk/dyn3d/Dissipation/gradiv2.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC revision 65 by guez, Thu Sep 20 09:57:03 2012 UTC
# Line 10  contains Line 10  contains
10      ! P. Le Van      ! P. Le Van
11      ! Calcul du gradient de la divergence du vecteur v.      ! Calcul du gradient de la divergence du vecteur v.
12    
13      USE dimens_m, ONLY : iim, jjm, llm      USE comgeom, ONLY: cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, &
     use divergf_m, only: divergf  
     USE comgeom, ONLY : cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, &  
14           unsapolsga1           unsapolsga1
15      USE filtreg_m, ONLY : filtreg      USE dimens_m, ONLY: iim, jjm, llm
16        use divergf_m, only: divergf
17        USE filtreg_m, ONLY: filtreg
18      use grad_m, only: grad      use grad_m, only: grad
     use nr_util, only: assert_eq, assert  
19      use laplacien_m, only: laplacien      use laplacien_m, only: laplacien
20        use nr_util, only: assert_eq, assert
21    
22      ! Composantes covariantes de v :      ! Composantes covariantes de v :
23      REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, klevel)      REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, klevel)
Legend:
Removed from v.64  
changed lines
  Added in v.65
  ViewVC Help
Powered by ViewVC 1.1.21