Ignore:
Timestamp:
Oct 24, 2024, 5:53:15 PM (25 hours ago)
Author:
abarral
Message:

Turn paramet.h into a module

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

    r5271 r5272  
    8686    USE lmdz_mpi
    8787    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     88USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     89          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    8890implicit none
    8991
    90       INCLUDE "paramet.h"
     92
    9193      INCLUDE "iniprint.h"
    9294
    … …  
    246248    SUBROUTINE create_distrib(jj_nb_new,d)
    247249    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     250USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     251          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    248252IMPLICIT NONE
    249253
    250       INCLUDE "paramet.h"
     254
    251255     
    252256      INTEGER,INTENT(IN) :: jj_Nb_New(0:MPI_Size-1)
    … …  
    298302    SUBROUTINE Set_Distrib(d)
    299303    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     304USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     305          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    300306IMPLICIT NONE
    301307
    302308
    303     INCLUDE "paramet.h"
     309
    304310    TYPE(distrib),INTENT(IN) :: d
    305311
    … …  
    335341    SUBROUTINE copy_distrib(dist,new_dist)
    336342    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     343USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     344          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    337345IMPLICIT NONE
    338346
    339347
    340     INCLUDE "paramet.h"
     348
    341349    TYPE(distrib),INTENT(INOUT) :: dist
    342350    TYPE(distrib),INTENT(IN) :: new_dist
    … …  
    373381    SUBROUTINE get_current_distrib(d)
    374382    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     383USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     384          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    375385IMPLICIT NONE
    376386
    377387
    378     INCLUDE "paramet.h"
     388
    379389    TYPE(distrib),INTENT(OUT) :: d
    380390
    … …  
    389399    USE control_mod, only : ok_dyn_xios
    390400    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     401    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     402          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    391403
    392404#ifdef CPP_COUPLE
    … …  
    406418#endif
    407419! #endif of #ifdef CPP_EARTH
    408 
    409       include "paramet.h"
    410 
    411420      integer :: ierr
    412421      integer :: i
    … …  
    453462    subroutine Pack_Data(Field,ij,ll,row,Buffer)
    454463    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     464    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     465          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    455466implicit none
    456467
    457468
    458       INCLUDE "paramet.h"
     469
    459470
    460471      integer, intent(in) :: ij,ll,row
    … …  
    477488    subroutine Unpack_Data(Field,ij,ll,row,Buffer)
    478489    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     490    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     491          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    479492implicit none
    480493
    481494
    482       INCLUDE "paramet.h"
     495
    483496
    484497      integer, intent(in) :: ij,ll,row
    … …  
    517530    USE Vampir
    518531    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     532    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     533          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    519534implicit none
    520535
    521       INCLUDE "paramet.h"   
     536
    522537      INTEGER :: ij,ll
    523538      REAL, dimension(ij,ll) :: Field
    … …  
    635650    USE lmdz_mpi
    636651    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     652    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     653          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    637654implicit none
    638655
    639     INCLUDE "paramet.h"
     656
    640657    INCLUDE "iniprint.h"
    641658      INTEGER :: ij,ll,rank
    … …  
    716733    USE lmdz_mpi
    717734    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     735    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     736          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    718737implicit none
    719738
    720     INCLUDE "paramet.h"   
     739
    721740      INTEGER :: ij,ll
    722741      REAL, dimension(ij,ll) :: Field
    … …  
    735754    USE lmdz_mpi
    736755    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     756    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     757          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    737758implicit none
    738759
    739     INCLUDE "paramet.h"   
     760
    740761      INTEGER :: ij,ll
    741762      REAL, dimension(ij,ll) :: Field
    … …  
    756777!    USE lmdz_mpi
    757778!    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    758 implicit none
     779!    USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     780!          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     781!implicit none
    759782!
    760 !      INCLUDE "paramet.h"   
     783!
    761784!   
    762785!      INTEGER :: ij,ll
Note: See TracChangeset for help on using the changeset viewer.