171 |
USE paramet_m, ONLY : iip1, jjp1 |
USE paramet_m, ONLY : iip1, jjp1 |
172 |
USE serre, ONLY : alphax, alphay, clat, clon, dzoomx, dzoomy, grossismx, & |
USE serre, ONLY : alphax, alphay, clat, clon, dzoomx, dzoomy, grossismx, & |
173 |
grossismy, pxo, pyo, taux, tauy, transx, transy |
grossismy, pxo, pyo, taux, tauy, transx, transy |
174 |
! Modifies pxo, pyo, transx, transy |
! Modifiés pxo, pyo, transx, transy |
|
|
|
|
! Variables locales |
|
175 |
|
|
176 |
|
! Local: |
177 |
INTEGER i, j, itmax, itmay, iter, unit |
INTEGER i, j, itmax, itmay, iter, unit |
178 |
REAL cvu(iip1, jjp1), cuv(iip1, jjm) |
REAL cvu(iip1, jjp1), cuv(iip1, jjm) |
179 |
REAL ai14, ai23, airez, un4rad2 |
REAL ai14, ai23, airez, un4rad2 |