|
Last change
on this file since 268 was
234,
checked in by aslmd, 14 years ago
|
|
LMDZ.MARS
+ MESOSCALE
- An important change to merge physiq.F and inifis.F for GCM and mesoscale
- This is mostly transparent to GCM users and developers (use of MESOSCALE precompiler flags)
- Makes it easy (and mostly automatic!) for changes in GCM physics to be impacted in mesoscale physics
- A few minor changes have followed in the GCM (slope scheme, one-point diagnostic).
- Compilation + run is OK on both sides (GCM and mesoscale).
- On the mesoscale side, call_meso_physiq?.inc and call_meso_inifis?.inc have been changed accordingly.
Here is the excerpt from README file:
19/07/2011 == AS
- Finished converging meso_physiq.F and meso_inifis.F towards physiq.F and inifis.F
--> see previous point 15/07/2011
--> meso_ routines no longer exist (everything is in meso_inc and transparent to GCM users)
--> GCM routines include mesoscale parts within MESOSCALE precompiler commands
--> MESOSCALE parts are as hidden as possible not to mess up with GCM users/developers
- Cleaned inelegant or useless #ifdef [or] #ifndef MESOSCALE in physiq and inifis so that
a minimum amount of such precompiler commands is now reached [mainly related to I/O]
- Added the SF08 slope insolation model in the general physics parameterizations.
Added a callslope keyword in inifis.F and callkeys.h
--> This keyword is False by default / True if you use -DMESOSCALE
- Removed the obsolete call to Viking Lander 1 diagnostic
Replaced it with a diagnostic for opacity at the domain center [valid for GCM and mesoscale]
|
|
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.
