| 1 | INTEGER wday_ini |
|---|
| 2 | REAL wtsurf(ngridmx) ! input only ay firstcall - output |
|---|
| 3 | REAL wtsoil(ngridmx,nsoilmx) |
|---|
| 4 | REAL wisoil(ngridmx,nsoilmx) !! new soil scheme |
|---|
| 5 | REAL wdsoil(ngridmx,nsoilmx) !! new soil scheme |
|---|
| 6 | REAL wco2ice(ngridmx) |
|---|
| 7 | REAL wemis(ngridmx) |
|---|
| 8 | REAL wqsurf(ngridmx,nqmx) |
|---|
| 9 | REAL wq2(ngridmx,nlayermx+1) |
|---|
| 10 | REAL output_tab2d(ngridmx,n2d) |
|---|
| 11 | REAL output_tab3d(ngridmx,nlayer,n3d) |
|---|
| 12 | REAL hfx(ngridmx) !! pour LES avec isfflx!=0 |
|---|
| 13 | REAL ust(ngridmx) !! pour LES avec isfflx!=0 |
|---|
| 14 | LOGICAL flag_LES !! pour LES avec isfflx!=0 |
|---|
| 15 | REAL qsurfice(ngridmx) !! pour diagnostics |
|---|
| 16 | real alpha,lay1 ! coefficients for building layers |
|---|
| 17 | integer iloop |
|---|
| 18 | INTEGER tracerset !!! this corresponds to config%mars |
|---|
| 19 | CHARACTER (len=20) :: wtnom(nqmx) ! tracer name |
|---|
| 20 | |
|---|
| 21 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! JF |
|---|
| 22 | REAL qsurfice_dust(ngridmx) ! useful for dust diagnostics |
|---|
| 23 | REAL TAU_lay(ngridmx) ! true opacity (it's not e reference life tauref) |
|---|
| 24 | REAL dsodust(ngridmx,nlayermx) |
|---|
| 25 | REAL zdqsdif_diag(ngridmx) ! useful for lifting diagnostics |
|---|
| 26 | REAL zdqssed_diag(ngridmx) ! useful for sedimentation diagnostics |
|---|
| 27 | REAL pdq_diag(ngridmx) ! useful for dust perturbation diagnostics |
|---|
| 28 | REAL dustot(ngridmx) ! Total mass of dust integrated along vertical axe (kg/m2) |
|---|
| 29 | REAL zdqnorm(ngridmx,nlayermx,2) |
|---|
| 30 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! JF |
|---|
