source: LMDZ5/branches/LMDZ5-DOFOCO/libf/dyn3dmem/fxy.F @ 5080

Last change on this file since 5080 was 1658, checked in by Laurent Fairhead, 12 years ago

Phasage de la dynamique parallele localisee (petite memoire) avec le tronc LMDZ4 (HEAD)
Validation effectuee par comparaison des fichiers de sorties debug (u, v, t, q, masse, etc ...) d'une simulation sans physique
faite avec la version du modele donnee par Y. Meurdesoif et la version phasee avec la r1428 (fin du tronc LMDZ4)

Phasing of the localised (low memory) parallel dynamics package with the LMDZ4 trunk version of LMDZ
Validation consisted in comparing output debug files (u, v, t, q, masse, etc... ) of a no physics simulation
run with the version of the code given by Y. Meurdesoif and this version phased with r1428 (HEAD of the LMDZ4 trunk)
File size: 1.9 KB
Line 
1!
2! $Id: fxy.F 1403 2010-07-01 09:02:53Z fairhead $
3!
4      SUBROUTINE fxy (rlatu,yprimu,rlatv,yprimv,rlatu1,yprimu1,
5     ,                    rlatu2,yprimu2,
6     , rlonu,xprimu,rlonv,xprimv,rlonm025,xprimm025,rlonp025,xprimp025)
7
8      IMPLICIT NONE
9
10c     Auteur  :  P. Le Van
11c
12c     Calcul  des longitudes et des latitudes  pour une fonction f(x,y)
13c           a tangente sinusoidale et eventuellement avec zoom  .
14c
15c
16#include "dimensions.h"
17#include "paramet.h"
18#include "serre.h"
19#include "comconst.h"
20
21       INTEGER i,j
22
23       REAL rlatu(jjp1), yprimu(jjp1),rlatv(jjm), yprimv(jjm),
24     , rlatu1(jjm), yprimu1(jjm), rlatu2(jjm), yprimu2(jjm)
25       REAL rlonu(iip1),xprimu(iip1),rlonv(iip1),xprimv(iip1),
26     , rlonm025(iip1),xprimm025(iip1), rlonp025(iip1),xprimp025(iip1)
27
28#include "fxy_new.h"
29
30
31c    ......  calcul  des  latitudes  et de y'   .....
32c
33       DO j = 1, jjm + 1
34          rlatu(j) = fy    ( REAL( j )        )
35         yprimu(j) = fyprim( REAL( j )        )
36       ENDDO
37
38
39       DO j = 1, jjm
40
41         rlatv(j)  = fy    ( REAL( j ) + 0.5  )
42         rlatu1(j) = fy    ( REAL( j ) + 0.25 )
43         rlatu2(j) = fy    ( REAL( j ) + 0.75 )
44
45        yprimv(j)  = fyprim( REAL( j ) + 0.5  )
46        yprimu1(j) = fyprim( REAL( j ) + 0.25 )
47        yprimu2(j) = fyprim( REAL( j ) + 0.75 )
48
49       ENDDO
50
51c
52c     .....  calcul   des  longitudes et de  x'   .....
53c
54       DO i = 1, iim + 1
55           rlonv(i)     = fx    (   REAL( i )          )
56           rlonu(i)     = fx    (   REAL( i ) + 0.5    )
57        rlonm025(i)     = fx    (   REAL( i ) - 0.25  )
58        rlonp025(i)     = fx    (   REAL( i ) + 0.25  )
59
60         xprimv  (i)    = fxprim (  REAL( i )          )
61         xprimu  (i)    = fxprim (  REAL( i ) + 0.5    )
62        xprimm025(i)    = fxprim (  REAL( i ) - 0.25   )
63        xprimp025(i)    = fxprim (  REAL( i ) + 0.25   )
64       ENDDO
65
66c
67       RETURN
68       END
69
Note: See TracBrowser for help on using the repository browser.