Directory: | ./ |
---|---|
File: | phys/gr_fi_ecrit.f90 |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 9 | 9 | 100.0% |
Branches: | 6 | 6 | 100.0% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | 2 | SUBROUTINE gr_fi_ecrit(nfield,nlon,iim,jjmp1,fi,ecrit) | |
2 | IMPLICIT none | ||
3 | ! | ||
4 | ! Tranformer une variable de la grille physique a | ||
5 | ! la grille d'ecriture | ||
6 | ! | ||
7 | ! WARNING: This only works on the full global grid | ||
8 | ! (ie for GCM in serial mode) | ||
9 | INTEGER nfield,nlon,iim,jjmp1, jjm | ||
10 | REAL fi(nlon,nfield), ecrit(iim*jjmp1,nfield) | ||
11 | ! | ||
12 | INTEGER i, n, ig | ||
13 | ! | ||
14 | 2 | jjm = jjmp1 - 1 | |
15 |
2/2✓ Branch 0 taken 2 times.
✓ Branch 1 taken 2 times.
|
4 | DO n = 1, nfield |
16 |
2/2✓ Branch 0 taken 64 times.
✓ Branch 1 taken 2 times.
|
66 | DO i=1,iim |
17 | 64 | ecrit(i,n) = fi(1,n) | |
18 | 66 | ecrit(i+jjm*iim,n) = fi(nlon,n) | |
19 | ENDDO | ||
20 |
2/2✓ Branch 0 taken 1984 times.
✓ Branch 1 taken 2 times.
|
1988 | DO ig = 1, nlon - 2 |
21 | 1986 | ecrit(iim+ig,n) = fi(1+ig,n) | |
22 | ENDDO | ||
23 | ENDDO | ||
24 | 2 | END SUBROUTINE gr_fi_ecrit | |
25 |