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

Turn paramet.h into a module

Location:
LMDZ6/trunk/libf/filtrez
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/filtrez/filtreg.F90

    r5271 r5272  
    88
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     10USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    1012IMPLICIT NONE
    1113  !=======================================================================
    … …  
    4850  !
    4951
    50   INCLUDE "paramet.h"
     52
    5153  INCLUDE "coefils.h"
    5254

  • LMDZ6/trunk/libf/filtrez/filtreg_mod.F90

    r5271 r5272  
    2121    !
    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    !
    … …  
    2830    !  -------------------------------------------------------------------
    2931
    30     include "paramet.h"
     32
    3133    !  -------------------------------------------------------------------
    3234    include "comgeom.h"

  • LMDZ6/trunk/libf/filtrez/inifgn.F90

    r5271 r5272  
    77  !
    88  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     9USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     10          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    911IMPLICIT NONE
    1012  !
    1113
    12   include "paramet.h"
     14
    1315  include "comgeom.h"
    1416
Note: See TracChangeset for help on using the changeset viewer.