Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/dyn3d/lmdz_paramet.f90
- Timestamp:
- Aug 2, 2024, 9:58:25 PM (7 weeks ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d/lmdz_paramet.f90
r5158 r5159 1 MODULE lmdz_paramet 2 USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm 1 3 2 ! $Header$ 4 IMPLICIT NONE; PRIVATE 5 PUBLIC iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, & 6 ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm 3 7 8 INTEGER iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1 9 INTEGER kftd, ip1jm, ip1jmp1, ip1jmi1, ijp1llm 10 INTEGER ijmllm, mvar 11 INTEGER jcfil, jcfllm 4 12 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) 13 PARAMETER(iip1 = iim + 1, 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) 9 21 10 11 !----------------------------------------------------------------------- 12 ! INCLUDE 'paramet.h' 13 14 INTEGER iip1,iip2,iip3,jjp1,llmp1,llmp2,llmm1 15 INTEGER kftd,ip1jm,ip1jmp1,ip1jmi1,ijp1llm 16 INTEGER ijmllm,mvar 17 INTEGER jcfil,jcfllm 18 19 PARAMETER( iip1= iim+1,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 ) 28 29 !----------------------------------------------------------------------- 22 END MODULE lmdz_paramet
Note: See TracChangeset
for help on using the changeset viewer.