source: LMDZ4/branches/LMDZ4-dev-20091210/libf/phylmd/radepsi.h @ 5065

Last change on this file since 5065 was 1220, checked in by lguez, 15 years ago

-- Replaced "integer*4" declarations by "integer", "real*8" by

"real(kind=8)" and "real*4" by "real". Note that these are the only
modifications in the files "radiation_AR4.F" and "sw_aeroAR4.F90".

-- Corrected the kind of arguments to "max" and "min".

-- Replaced "nH" edit descriptors, which is a deleted feature in

Fortran 95, by character strings.

-- "regr_lat_time_climoz" now allows the pressure coordinate in the

input file to be in descending order.

-- Replaced call to not standard function "float" by call to intrinsic

function "real".

-- Included file "radepsi.h" in "physiq" was not used. Removed it.

The following set of modifications is related to the management of time.

-- In "gcm", "leapfrog" and "sortvarc0", "day_ini" was defined as 1

plus number of days between the reference date "(annee_ref,
day_ref)" and the first day of the current simulation. Changed
definition: "(annee_ref, day_ini)" is the first day of the current
simulation. There is an accompanying modification for "day_end".

-- Corrected bug in call to "ioconf_startdate" in "gcm".

-- Added call to "ioconf_calendar" in "create_etat0_limit".

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 488 bytes
Line 
1!
2! $Header$
3!
4      REAL(KIND=8) ZEELOG, ZEPSC, ZEPSCO, ZEPSCQ, ZEPSCT, ZEPSCW
5      REAL(KIND=8) ZEPSEC, ZEPSCR
6      PARAMETER (ZEELOG = 1.E-07) !1.e-10 (not good for 32-bit machines)
7      PARAMETER (ZEPSC  = 1.E-20)
8      PARAMETER (ZEPSCO = 1.E-10)
9      PARAMETER (ZEPSCQ = 1.E-10)
10      PARAMETER (ZEPSCT = 1.E-20)
11      PARAMETER (ZEPSCW = 1.E-20)
12      PARAMETER (ZEPSEC = 1.0E-12)
13      PARAMETER (ZEPSCR = 1.0E-10)
14c
15      REAL(KIND=8) REPSCT
16      PARAMETER (REPSCT=1.0E-10)
Note: See TracBrowser for help on using the repository browser.