7 |
private llm |
private llm |
8 |
|
|
9 |
REAL dtdiss |
REAL dtdiss |
10 |
integer idissip ! période de la dissipation (en pas) |
integer idissip ! période de la dissipation (en pas de temps) |
11 |
real tetaudiv(llm), tetaurot(llm), tetah(llm) |
real tetaudiv(llm), tetaurot(llm), tetah(llm) |
12 |
real cdivu, crot, cdivh |
real cdivu, crot, cdivh |
13 |
|
|
25 |
USE conf_gcm_m, ONLY : iperiod |
USE conf_gcm_m, ONLY : iperiod |
26 |
USE dimens_m, ONLY : jjm, llm |
USE dimens_m, ONLY : jjm, llm |
27 |
USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1 |
USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1 |
28 |
use new_unit_m, only: new_unit |
use l_util, only: new_unit |
29 |
use filtreg_m, only: filtreg |
use filtreg_m, only: filtreg |
30 |
|
|
31 |
! Variables local to the procedure: |
! Variables local to the procedure: |