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

Turn paramet.h into a module

Location:
LMDZ6/trunk/libf/phylmd/Dust
Files:
14 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.f90

    r5271 r5272  
    99  USE infotrac
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    … …  
    1416  INCLUDE "chem.h"
    1517  INCLUDE "YOMCST.h"
    16   INCLUDE "paramet.h"
     18
    1719
    1820  !============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.f90

    r5271 r5272  
    99  USE infotrac
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    … …  
    1416  INCLUDE "chem.h"
    1517  INCLUDE "YOMCST.h"
    16   INCLUDE "paramet.h"
     18
    1719
    1820  !============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/coarsemission.f90

    r5271 r5272  
    3232   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    3333  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     34USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     35          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    3436IMPLICIT NONE
    3537
    … …  
    3840  INCLUDE "chem_spla.h"
    3941  INCLUDE "YOMCST.h"
    40   INCLUDE "paramet.h"
     42
    4143
    4244  !============================== INPUT ==================================

  • LMDZ6/trunk/libf/phylmd/Dust/deposition.f90

    r5271 r5272  
    1111
    1212  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     13USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     14          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1315IMPLICIT NONE
    1416
    … …  
    1618  INCLUDE "chem.h"
    1719  INCLUDE "YOMCST.h"
    18   INCLUDE "paramet.h"
     20
    1921
    2022  !----------------------------- INPUT -----------------------------------

  • LMDZ6/trunk/libf/phylmd/Dust/finemission.f90

    r5271 r5272  
    1616   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    1717  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     18USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     19          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1820IMPLICIT NONE
    1921
    … …  
    2123  INCLUDE "chem.h"
    2224  INCLUDE "YOMCST.h"
    23   INCLUDE "paramet.h"
     25
    2426
    2527  INTEGER :: i, k, kminbc, kmaxbc

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.f90

    r5271 r5272  
    1010
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214IMPLICIT NONE
    1315
    … …  
    1517  INCLUDE "chem.h"
    1618  INCLUDE "YOMCST.h"
    17   INCLUDE "paramet.h"
     19
    1820
    1921  !============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.f90

    r5271 r5272  
    1010
    1111  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     12USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     13          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1214IMPLICIT NONE
    1315
    … …  
    1517  INCLUDE "chem.h"
    1618  INCLUDE "YOMCST.h"
    17   INCLUDE "paramet.h"
     19
    1820
    1921  !============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r5271 r5272  
    808808                              mth_cur, phys_cal_update
    809809      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    810 !
     810      USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     811          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    811812      IMPLICIT none
    812813!
    … …  
    827828      INCLUDE "YOMCST.h"
    828829      INCLUDE "YOETHF.h"
    829       INCLUDE "paramet.h"
    830830      INCLUDE "alpale.h"
    831831

  • LMDZ6/trunk/libf/phylmd/Dust/precuremission.f90

    r5271 r5272  
    2121   ! USE phytracr_spl_mod, ONLY : nbreg_dust, nbreg_ind, nbreg_bb
    2222  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     23USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     24          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2325IMPLICIT NONE
    2426
    … …  
    2729  INCLUDE "chem_spla.h"
    2830  INCLUDE "YOMCST.h"
    29   INCLUDE "paramet.h"
     31
    3032
    3133  !============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/read_dust.f90

    r5271 r5272  
    55  USE netcdf, ONLY: nf90_get_var, nf90_nowrite, nf90_open, nf90_inq_varid
    66  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     7USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     8          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    79IMPLICIT NONE
    810  !
    911
    10   INCLUDE "paramet.h"
     12
    1113  !
    1214  INTEGER :: step, nbjour

  • LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.f90

    r5271 r5272  
    2424
    2525  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     26USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     27          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2628IMPLICIT NONE
    2729
    … …  
    2931
    3032   ! INCLUDE 'dimphy.h'
    31   INCLUDE 'paramet.h'
     33
    3234  INCLUDE 'chem.h'
    3335  INCLUDE 'chem_spla.h'

  • LMDZ6/trunk/libf/phylmd/Dust/read_surface.f90

    r5271 r5272  
    1212       USE netcdf, ONLY: nf90_inq_varid,nf90_noerr,nf90_get_var,nf90_nowrite,nf90_inq_varid,nf90_open
    1313       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     14USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     15          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1416IMPLICIT NONE
    1517
    16        INCLUDE "paramet.h"
     18
    1719
    1820       character*10 name

  • LMDZ6/trunk/libf/phylmd/Dust/read_vent.f90

    r5271 r5272  
    66   ! USE write_field_phy
    77  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     8USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     9          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    810IMPLICIT NONE
    911
    1012    ! INCLUDE "dimphy.h"
    11   INCLUDE "paramet.h"
     13
    1214  !
    1315  INTEGER :: step, nbjour

  • LMDZ6/trunk/libf/phylmd/Dust/trconvect.f90

    r5271 r5272  
    99
    1010  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     11USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     12          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1113IMPLICIT NONE
    1214
    … …  
    1416  INCLUDE "chem.h"
    1517  INCLUDE "YOMCST.h"
    16   INCLUDE "paramet.h"
     18
    1719
    1820  !============================= INPUT ===================================
Note: See TracChangeset for help on using the changeset viewer.