|
Last change
on this file since 1233 was
1224,
checked in by aslmd, 11 years ago
|
|
LMDZ.MARS. If not major, a quite important commit.
- No more SAVE,ALLOCATABLE arrays outside modules.
This is important to solve the nesting conundrum in MESOSCALE.
And overall this is good for the harmony of the universe.
(Joke apart, this is good for any interfacing task. And compliant with a F90 spirit).
Note that bit-to-bit compatibility of results in debug mode was checked.
- inifis is split in two : phys_state_var_init + conf_phys
This makes interfacing with MESOSCALE more transparent.
This is also clearer for LMDZ.MARS.
Before, inifis has two very different tasks to do.
- a bit of cleaning as far as modules and saves are concerned
Point 1
- Removed SAVE,ALLOCATABLE arrays from
physiq, aeropacity, updatereffrad, soil
and put those in
dimradmars_mod, surfdat_h, tracer_mod, comsoil_h
and changed accordingly the initialization subroutines associated to each module.
Allocating these arrays is thus done at initialization.
Point 2
- Created a subroutine phys_state_var_init which does all the allocation / initialization
work for modules. This was previously done in inifis.
- Replaced inifis which was then (after the previous modification) just about
reading callphys.def and setting a few constants
by conf_phys. This mimics the new LMDZ terminology (cf. LMDZ.VENUS for instance)
- Bye bye inifis.
Point 3
- Removed comdiurn and put everything in comgeomfi
- Created a turb_mod module for turbulence variables (e.g. l0 in yamada4)
- dryness had nothing to do in tracer_h, put it in surfdat_h (like watercaptag)
- topdust0 does not need to be SAVE in aeropacity. better use sinlat.
- emisref does not need to be SAVE in newcondens. made it automatic array.
- Removed useless co2ice argument in initracer.
|
|
File size:
375 bytes
|
| Line | |
|---|
| 1 | !----------------------------------------------------------------------- |
|---|
| 2 | ! INCLUDE datafile.h |
|---|
| 3 | |
|---|
| 4 | ! Address of the directory containing tables of data needed by the GCM |
|---|
| 5 | COMMON/datadirectory/datafile |
|---|
| 6 | character (len=100) :: datafile |
|---|
| 7 | ! NB: default value for 'datafile' is set in conf_phys.F |
|---|
| 8 | !----------------------------------------------------------------------- |
|---|
Note: See
TracBrowser
for help on using the repository browser.
