/[lmdze]/trunk/dyn3d/grad.f
ViewVC logotype

Annotation of /trunk/dyn3d/grad.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 103 - (hide annotations)
Fri Aug 29 13:00:05 2014 UTC (9 years, 8 months ago) by guez
File size: 748 byte(s) 
Renamed module cvparam to cv_param. Deleted procedure
cv_param. Changed variables of module cv_param into parameters.

In procedures cv_driver, cv_uncompress and cv3_uncompress, removed
some arguments giving dimensions and used module variables klon and
klev instead.

In procedures gradiv2, laplacien_gam and laplacien, changed
declarations of local variables because klevel is not always klev.

Removed code for nudging surface pressure.

Removed arguments pim and pjm of tau2alpha. Added assignment of false
to variable first.

Replaced real argument del of procedures foeew and FOEDE by logical
argument.
1 guez 60 module grad_m
2    
3     IMPLICIT NONE
4    
5     contains
6    
7 guez 65 SUBROUTINE grad(klevel, g, gx, gy)
8 guez 60
9     ! From LMDZ4/libf/dyn3d/grad.F, version 1.1.1.1 2004/05/19 12:53:05
10     ! P. Le Van
11    
12     ! Calcul des composantes covariantes en x et y du gradient de g.
13    
14 guez 103 USE dimens_m, ONLY: iim, jjm
15 guez 60
16     INTEGER, intent(in):: klevel
17 guez 103 REAL, intent(in):: g(iim + 1, jjm + 1, klevel)
18     REAL, intent(out):: gx(iim + 1, jjm + 1, klevel) , gy(iim + 1, jjm, klevel)
19 guez 60
20     ! Local:
21 guez 103 INTEGER i, j
22 guez 60
23     !----------------------------------------------------------------
24    
25 guez 103 forall (i = 1:iim) gx(i, :, :) = g(i + 1, :, :) - g(i, :, :)
26     gx(iim + 1, :, :)= gx(1, :, :)
27 guez 60
28 guez 103 forall (j = 1:jjm) gy(:, j, :) = g(:, j, :) - g(:, j + 1, :)
29 guez 60
30     END SUBROUTINE grad
31    
32     end module grad_m
  ViewVC Help
Powered by ViewVC 1.1.21