Parent Directory | Revision Log
Imported "writehist.f" from LMDZ. Moved module variable "histaveid" from "com_io_dyn" to "initdynav_m". In "inithist", access directly module variables from "com_io_dyn" instead of going through the arguments. Copying from LMDZ, write "u" and scalar variables to separate files. Create a new variable for the new file in "com_io_dyn". Copying from LMDZ, change the vertical axes of the three files. Removed some useless initializations in "dissip". In "bilan_dyn", removed useless variable "time". Avoiding the approximate test on "dt_cum" being a multiple of "dt_app", just compute "ncum" from known usage of "bilan_dyn" and compute "dt_cum" from "ncum". Change "periodav" from real to integer in "conf_gcm_m". Since "day_step" is required to be a multiple of "iperiod", so is "ncum".
1 | guez | 3 | module paramet_m |
2 | |||
3 | use dimens_m, only: iim, jjm, llm, ndm | ||
4 | |||
5 | implicit none | ||
6 | |||
7 | private iim, jjm, llm, ndm | ||
8 | |||
9 | integer, PARAMETER:: iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3 | ||
10 | integer, PARAMETER:: jjp1 = jjm + 1 | ||
11 | guez | 40 | integer, PARAMETER:: llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1 |
12 | guez | 3 | |
13 | guez | 40 | integer, PARAMETER:: kftd = iim/2 -ndm |
14 | integer, PARAMETER:: ip1jm = (iim + 1) * jjm | ||
15 | guez | 56 | integer, PARAMETER:: ip1jmp1 = (iim + 1) * (jjm + 1) |
16 | guez | 40 | integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1) |
17 | integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm | ||
18 | guez | 3 | integer, PARAMETER:: ijmllm= ip1jm * llm |
19 | integer, PARAMETER:: mvar= (iim + 1) * (jjm + 1)*( 2*llm+1) + ijmllm | ||
20 | integer, PARAMETER:: jcfil=jjm/2+5, jcfllm=jcfil*llm | ||
21 | |||
22 | end module paramet_m |
ViewVC Help | |
Powered by ViewVC 1.1.21 |