Last change
on this file since 3553 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.