59 |
REAL, save:: qrea2(iim + 1, jjm + 1, llm) ! temp pot reales |
REAL, save:: qrea2(iim + 1, jjm + 1, llm) ! temp pot reales |
60 |
REAL, save:: masserea2(ip1jmp1, llm) ! masse |
REAL, save:: masserea2(ip1jmp1, llm) ! masse |
61 |
|
|
62 |
! alpha determine la part des injections de donnees a chaque etape |
! alpha détermine la part des injections de données à chaque étape |
63 |
! alpha=0 signifie pas d'injection |
! alpha=0 signifie pas d'injection |
64 |
! alpha=1 signifie injection totale |
! alpha=1 signifie injection totale |
65 |
REAL, save:: alpha_q(iim + 1, jjm + 1) |
REAL, save:: alpha_q(iim + 1, jjm + 1) |
162 |
tetarea1 = tetarea2 |
tetarea1 = tetarea2 |
163 |
qrea1 = qrea2 |
qrea1 = qrea2 |
164 |
|
|
165 |
PRINT *, 'LECTURE REANALYSES, pas ', step_rea, 'apres ', & |
PRINT *, 'Lecture fichiers guidage, pas ', step_rea, 'apres ', & |
166 |
count_no_rea, ' non lectures' |
count_no_rea, ' non lectures' |
167 |
step_rea = step_rea + 1 |
step_rea = step_rea + 1 |
168 |
CALL read_reanalyse(step_rea, ps, ucovrea2, vcovrea2, tetarea2, qrea2, & |
CALL read_reanalyse(step_rea, ps, ucovrea2, vcovrea2, tetarea2, qrea2, & |