|
Last change
on this file since 289 was
285,
checked in by aslmd, 14 years ago
|
08/09/11 == AS
LMDZ.MARS + MESOSCALE.
---> Setting up a more realistic water ice source at the poles (notably outliers)
surfini.F ?
Main changes and bug fixes
- reference to comcstfi.h was wrong. big problem because e.g. pi was not known.
- commented about a problem to be fixed, due to surfini being called before initracer.
- MESOSCALE: put the mesoscale north cap definition into a precompiling flag #MESOSCALE
for the moment: if [alb_mean_TES > 0.26 and lat > 70] then outliers
(previously done in meso_inc_caps.F)
inifis.F ?
Just changed a comment with wrong formatting
--> below, only MESOSCALE
soil.F ?
if somewhere IT > IT_outliers, then makes it = IT_outliers
physiq.F ?
meso_inc/meso_inc_caps.F ?
meso_inc/meso_inc_ini.F ?
meso_inc_caps no longer called. keep for reference for the moment.
meso_inc/meso_inc_var.F ?
deleted lines with *_lim variables, now useless
|
|
File size:
839 bytes
|
| Line | |
|---|
| 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 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
