| 1 | MODULE dimphys_mod |
|---|
| 2 | USE ICOSA |
|---|
| 3 | INTEGER::nsoilmx=10,offset |
|---|
| 4 | INTEGER::ngridmx,nlayermx |
|---|
| 5 | LOGICAL::callrad,calldifv,calladj,callcond,callsoil |
|---|
| 6 | LOGICAL::season,diurnal,lverbose |
|---|
| 7 | INTEGER:: iradia |
|---|
| 8 | REAL:: period_sort,timeperi |
|---|
| 9 | REAL:: aphelie,periheli,year_day,peri_day,obliquit |
|---|
| 10 | REAL::e_elips,p_elips,unitastr |
|---|
| 11 | REAL:: coefvis,coefir |
|---|
| 12 | |
|---|
| 13 | REAL,ALLOCATABLE:: albedo(:),emissiv(:),inertie(:) |
|---|
| 14 | REAL,ALLOCATABLE:: tsurf(:),tsoil(:,:) |
|---|
| 15 | REAL,ALLOCATABLE:: z0(:),rnatur(:) |
|---|
| 16 | REAL,ALLOCATABLE:: dtrad(:,:) ,fluxrad(:) |
|---|
| 17 | REAL,ALLOCATABLE:: capcal(:) ,fluxgrd(:) |
|---|
| 18 | REAL,ALLOCATABLE:: q2(:,:),q2l(:,:) |
|---|
| 19 | |
|---|
| 20 | |
|---|
| 21 | ! REAL,allocatable:: albedo(:),emissiv(:),inertie(:) |
|---|
| 22 | ! REAL,allocatable:: z0(:),rnatur(:) |
|---|
| 23 | |
|---|
| 24 | ! REAL,allocatable::tsurf(:),tsoil(:,:) |
|---|
| 25 | ! REAL,allocatable::fluxrad(:),fluxgrd(:) |
|---|
| 26 | ! REAL,ALLOCATABLE::capcal(:) |
|---|
| 27 | END MODULE dimphys_mod |
|---|
