/[lmdze]/trunk/Sources/dyn3d/covnat.f
ViewVC logotype

Contents of /trunk/Sources/dyn3d/covnat.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 82 - (show annotations)
Wed Mar 5 14:57:53 2014 UTC (10 years, 2 months ago) by guez
Original Path: trunk/dyn3d/covnat.f
File size: 1043 byte(s)
Changed all ".f90" suffixes to ".f".
1 module covnat_m
2
3 IMPLICIT NONE
4
5 contains
6
7 SUBROUTINE covnat(klevel, ucov, vcov, unat, vnat)
8
9 ! From LMDZ4/libf/dyn3d/covnat.F, version 1.1.1.1 2004/05/19 12:53:07
10
11 USE comgeom, ONLY: cu, cv
12 USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1
13
14 ! Authors: F. Hourdin, Phu Le Van
15
16 ! Objet : calcul des composantes naturelles à partir des
17 ! composantes covariantes.
18
19 INTEGER, intent(in):: klevel
20 REAL, intent(in):: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
21 REAL, intent(out):: unat(ip1jmp1, klevel), vnat(ip1jm, klevel)
22
23 ! Local:
24 INTEGER l, ij
25
26 !------------------------------------------------------------------
27
28 DO l = 1, klevel
29 DO ij = 1, iip1
30 unat(ij, l) =0.
31 END DO
32
33 DO ij = iip2, ip1jm
34 unat(ij, l) = ucov(ij, l) / cu(ij)
35 ENDDO
36
37 DO ij = ip1jm+1, ip1jmp1
38 unat(ij, l) =0.
39 END DO
40
41 DO ij = 1, ip1jm
42 vnat(ij, l) = vcov(ij, l) / cv(ij)
43 ENDDO
44 ENDDO
45
46 END SUBROUTINE covnat
47
48 end module covnat_m

  ViewVC Help
Powered by ViewVC 1.1.21