|
Last change
on this file since 3452 was
1107,
checked in by emillour, 11 years ago
|
|
Common dynamics: Updates and modifications to enable running Mars physics with
LMDZ.COMMON dynamics:
- For compilation: adapted makelmdz, create_make_gcm and makelmdz_fcm, bld.cfg
to compile aeronomy routines in "aerono$physique" if it exists,
and added "-P -traditional" preprocessing flags in "arch-linux-ifort*"
- Added function "cbrt.F" (cubic root) in 'bibio'
- Adapted the reading/writing of dynamics (re)start.nc files for Mars. The main
issue is that different information (on time, reference and current) is
stored and used differently, hence a few if (planet_type =="mars") here and
there. Moreover in the martian case there is the possibility to store fields
over multiple times.
Some Mars-specific variables (ecritphy,ecritstart,timestart) added in
control_mod.F and (hour_ini) in temps.h
EM
|
|
File size:
127 bytes
|
| Line | |
|---|
| 1 | FUNCTION cbrt(x) |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| 4 | REAL x,cbrt |
|---|
| 5 | |
|---|
| 6 | cbrt=sign(1.,x)*(abs(x)**(1./3.)) |
|---|
| 7 | |
|---|
| 8 | RETURN |
|---|
| 9 | END |
|---|
Note: See
TracBrowser
for help on using the repository browser.
