source: trunk/LMDZ.TITAN/libf/phytitan/scal_wind.F @ 1461

Last change on this file since 1461 was 1443, checked in by emillour, 9 years ago

Titan and Venus GCMs:
Follow-up to the changes in dynamics/physics interface: ener.h, logic.h, serre.h and temps.h are now modules.
EM
File size: 1.2 KB
Line 
1      SUBROUTINE scal_wind(xus,xvs,xu,xv)
2c=======================================================================
3c
4c
5c   Subject:
6c   ------
7c On passe  les variable xus, xvs  aux points de vent u et v (xu et xv)
8c
9c=======================================================================
10      IMPLICIT NONE
11c-----------------------------------------------------------------------
12c   Declararations:
13c   ---------------
14
15#include "dimensions.h"
16#include "paramet.h"
17
18c   Arguments:
19c   ----------
20
21      REAL xu(iip1,jjp1,llm),xv(iip1,jjm,llm)
22      REAL xus(iip1,jjp1,llm), xvs (iip1,jjp1,llm)
23
24c   Local:
25c   ------
26
27      INTEGER i,j,l
28
29c-----------------------------------------------------------------------
30
31c   transport zonal:
32c   ----------------
33      DO l=1,llm
34        Do j=1,jjp1
35              DO i=1,iim
36            xu(i,j,l)=0.5*(xus(i,j,l)+xus(i+1,j,l))
37              ENDDO
38          xu(iip1,j,l)=xu(1,j,l)
39            ENDDO
40      ENDDO
41
42
43c   Transport meridien:
44c   -------------------
45      DO l=1,llm
46         DO j=1,jjm
47           do i=1 ,iip1
48                 xv(i,j,l)=.5*(xvs(i,j,l)+xvs(i,j+1,l))
49           end do
50             ENDDO
51          ENDDO
52
53      RETURN
54      END
Note: See TracBrowser for help on using the repository browser.