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

Diff of /trunk/dyn3d/paramet_m.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC revision 261 by guez, Wed Mar 7 13:33:15 2018 UTC
# Line 1  Line 1 
1  module paramet_m  module paramet_m
2    
3    use dimens_m, only: iim, jjm, llm, ndm    use dimens_m, only: iim, jjm, llm
4    
5    implicit none    implicit none
6    
7    private iim, jjm, llm, ndm    private iim, jjm, llm
8    
9    integer, PARAMETER:: iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3    integer, PARAMETER:: iip1 = iim + 1, iip2 = iim + 2, iip3 = iim + 3
10    integer, PARAMETER:: jjp1 = jjm + 1    integer, PARAMETER:: jjp1 = jjm + 1
11    integer, PARAMETER:: llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1    integer, PARAMETER:: llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1
   integer, PARAMETER:: kftd = iim/2 -ndm  
12    integer, PARAMETER:: ip1jm = (iim + 1) * jjm    integer, PARAMETER:: ip1jm = (iim + 1) * jjm
13    integer, PARAMETER:: ip1jmp1 = (iim + 1) * (jjm + 1)    integer, PARAMETER:: ip1jmp1 = (iim + 1) * (jjm + 1)
14    integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1)    integer, PARAMETER:: ip1jmi1 = ip1jm - (iim + 1)
15    integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm    integer, PARAMETER:: ijp1llm = (iim + 1) * (jjm + 1) * llm
16    integer, PARAMETER:: ijmllm= ip1jm * llm    integer, PARAMETER:: ijmllm= ip1jm * llm
   integer, PARAMETER:: mvar= (iim + 1) * (jjm + 1)*( 2*llm+1) + ijmllm  
   integer, PARAMETER:: jcfil=jjm/2+5, jcfllm=jcfil*llm  
17    
18  end module paramet_m  end module paramet_m

Legend:
Removed from v.254  
changed lines
  Added in v.261

  ViewVC Help
Powered by ViewVC 1.1.21