Changeset 5272 for LMDZ6/trunk/libf/dyn3dmem/paramet_mod_h.f90
- Timestamp:
- Oct 24, 2024, 5:53:15 PM (25 hours ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/paramet_mod_h.f90
r5271 r5272 1 ! 2 ! $Id$ 3 ! 4 ! 5 ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre 6 ! veillez n'utiliser que des ! pour les commentaires 7 ! et bien positionner les & des lignes de continuation 8 ! (les placer en colonne 6 et en colonne 73) 9 ! 10 ! 11 !----------------------------------------------------------------------- 12 ! INCLUDE 'paramet.h' 1 MODULE paramet_mod_h 2 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 13 3 14 INTEGER iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1 15 INTEGER kftd,ip1jm,ip1jmp1,ip1jmi1,ijp1llm 16 INTEGER ijmllm,mvar 17 INTEGER jcfil,jcfllm 4 IMPLICIT NONE; PRIVATE 5 PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 6 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 18 7 19 PARAMETER( iip1= iim+1-1/iim,iip2=iim+2,iip3=iim+3 & 20 & ,jjp1=jjm+1-1/jjm) 21 PARAMETER( llmp1 = llm+1, llmp2 = llm+2, llmm1 = llm-1 ) 22 PARAMETER( kftd = iim/2 -ndm ) 23 PARAMETER( ip1jm = iip1*jjm, ip1jmp1= iip1*jjp1 ) 24 PARAMETER( ip1jmi1= ip1jm - iip1 ) 25 PARAMETER( ijp1llm= ip1jmp1 * llm, ijmllm= ip1jm * llm ) 26 PARAMETER( mvar= ip1jmp1*( 2*llm+1) + ijmllm ) 27 PARAMETER( jcfil=jjm/2+5, jcfllm=jcfil*llm ) 8 INTEGER iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1 9 INTEGER kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm 10 INTEGER ijmllm, mvar 11 INTEGER jcfil, jcfllm 28 12 29 !----------------------------------------------------------------------- 13 PARAMETER(iip1 = iim + 1 - 1 / iim, iip2 = iim + 2, iip3 = iim + 3, jjp1 = jjm + 1 - 1 / jjm) 14 PARAMETER(llmp1 = llm + 1, llmp2 = llm + 2, llmm1 = llm - 1) 15 PARAMETER(kftd = iim / 2 - ndm) 16 PARAMETER(ip1jm = iip1 * jjm, ip1jmp1 = iip1 * jjp1) 17 PARAMETER(ip1jmi1 = ip1jm - iip1) 18 PARAMETER(ijp1llm = ip1jmp1 * llm, ijmllm = ip1jm * llm) 19 PARAMETER(mvar = ip1jmp1 * (2 * llm + 1) + ijmllm) 20 PARAMETER(jcfil = jjm / 2 + 5, jcfllm = jcfil * llm) 21 END MODULE paramet_mod_h
Note: See TracChangeset
for help on using the changeset viewer.