|
Last change
on this file since 2902 was
1650,
checked in by emillour, 8 years ago
|
|
Dynamical core: Further adaptations to stick with LMDZ5 (up to rev r2750)
- libf
- makelmdz[_fcm] : added Earth-specific "dust" and "strataer" cases and
-arch_path option
- bld.cfg : added dust and strataer cases
- dyn3d[par]
- conf_gcm.F90 : added read_orop parameter (Earth-related) for
loading subgrid orography parameters.
- guide[_p]_mod.F90: added output of nudging coefficients for winds
and temperature
- temps_mod.F90 : cosmetics/comments
- logic_mod.F90 : cosmetics/comments
- dyn3d_common
- comconst_mod.F90 : cosmetics/comments + added year_day module variable
- conf_planete.F90 : added year_day from comconst_mod as done in LMDZ5
- comvert_mod.F90 : cosmetics/comments
- infotrac.F90 : added "startAer" case to follow up with LMDZ5
- misc
- wxios.F90 : follow up on changes in LMDZ5
EM
|
|
File size:
1.2 KB
|
| Rev | Line | |
|---|
| [1422] | 1 | MODULE temps_mod |
|---|
| 2 | |
|---|
| 3 | IMPLICIT NONE |
|---|
| 4 | |
|---|
| [1650] | 5 | INTEGER itaufin ! total number of dynamical steps for the run |
|---|
| 6 | INTEGER itau_dyn |
|---|
| 7 | INTEGER itau_phy |
|---|
| 8 | INTEGER day_ini ! initial day # of simulation sequence |
|---|
| 9 | INTEGER day_end ! final day # ; i.e. day # when this simulation ends |
|---|
| 10 | INTEGER annee_ref |
|---|
| 11 | INTEGER day_ref |
|---|
| 12 | REAL dt ! (dynamics) time step (changes if doing Matsuno or LF step) |
|---|
| 13 | REAL jD_ref ! reference julian day date (beginning of experiment) |
|---|
| 14 | REAL jH_ref ! reference julian "hour" of reference julian date |
|---|
| 15 | REAL start_time |
|---|
| 16 | CHARACTER (len=10) :: calend ! calendar type |
|---|
| [1422] | 17 | |
|---|
| [1650] | 18 | ! Additionnal Mars stuff: |
|---|
| 19 | REAL hour_ini ! initial fraction of day of simulation sequence (0=<hour_ini<1) |
|---|
| [1422] | 20 | |
|---|
| [1650] | 21 | !$OMP THREADPRIVATE(dt,jD_ref,jH_ref,start_time,hour_ini, & |
|---|
| 22 | !$OMP day_ini,day_end,annee_ref,day_ref,itau_dyn,itau_phy,itaufin,& |
|---|
| 23 | !$OMP calend) |
|---|
| [1422] | 24 | |
|---|
| [1650] | 25 | !WARNING: when adding a threadprivate variable in this module |
|---|
| 26 | ! do not forget to add it to the copyin clause when opening an OpenMP |
|---|
| 27 | ! parallel section. e.g. in gcm before call leapfrog_loc and/or |
|---|
| 28 | ! possibly in iniphysiq |
|---|
| [1422] | 29 | |
|---|
| 30 | END MODULE temps_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
