| 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 |