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

Contents of /trunk/dyn3d/grad.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 103 - (show 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 module grad_m
2
3 IMPLICIT NONE
4
5 contains
6
7 SUBROUTINE grad(klevel, g, gx, gy)
8
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 USE dimens_m, ONLY: iim, jjm
15
16 INTEGER, intent(in):: klevel
17 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
20 ! Local:
21 INTEGER i, j
22
23 !----------------------------------------------------------------
24
25 forall (i = 1:iim) gx(i, :, :) = g(i + 1, :, :) - g(i, :, :)
26 gx(iim + 1, :, :)= gx(1, :, :)
27
28 forall (j = 1:jjm) gy(:, j, :) = g(:, j, :) - g(:, j + 1, :)
29
30 END SUBROUTINE grad
31
32 end module grad_m
  ViewVC Help
Powered by ViewVC 1.1.21