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 | 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 | integer, PARAMETER:: llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1 |
| 12 | |
| 13 | integer, PARAMETER:: kftd = iim/2 -ndm |
| 14 | integer, PARAMETER:: ip1jm = (iim + 1) * jjm |
| 15 | integer, PARAMETER:: ip1jmp1 = (iim + 1) * (jjm + 1) |
| 16 | integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1) |
| 17 | integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm |
| 18 | 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 |