/[lmdze]/trunk/dyn3d/paramet_m.f
ViewVC logotype

Contents of /trunk/dyn3d/paramet_m.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 79 - (show annotations)
Fri Feb 28 17:52:47 2014 UTC (10 years, 3 months ago) by guez
Original Path: trunk/dyn3d/paramet_m.f90
File size: 739 byte(s) 
Moved procedure iniconst inside module comconst. Removed useless
variables of module comconst: im, jm, lllm, imp1, jmp1, lllmm1,
lllmp1, lcl, cotot, unsim. Move definition of dtvr that was in
dynetat0 and etat0 to iniconst. Moved comparison of dtvr from day_step
and start.nc that was in gcm to dynetat0. Moved call to disvert out of
iniconst. Moved call to iniconst in gcm before call to dynetat0.

Removed unused argument pvteta of physiq (not used either in LMDZ).
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 integer, PARAMETER:: kftd = iim/2 -ndm
13 integer, PARAMETER:: ip1jm = (iim + 1) * jjm
14 integer, PARAMETER:: ip1jmp1 = (iim + 1) * (jjm + 1)
15 integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1)
16 integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm
17 integer, PARAMETER:: ijmllm= ip1jm * llm
18 integer, PARAMETER:: mvar= (iim + 1) * (jjm + 1)*( 2*llm+1) + ijmllm
19 integer, PARAMETER:: jcfil=jjm/2+5, jcfllm=jcfil*llm
20
21 end module paramet_m
  ViewVC Help
Powered by ViewVC 1.1.21