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

Turn paramet.h into a module

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/friction.f90

    r5271 r5272  
    88  USE comconst_mod, ONLY: pi
    99  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    10   IMPLICIT NONE
     10  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     11          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     12IMPLICIT NONE
    1113
    1214  !=======================================================================
    … …  
    2224  !=======================================================================
    2325
    24   include "paramet.h"
     26
    2527  include "comgeom2.h"
    2628  include "iniprint.h"
Note: See TracChangeset for help on using the changeset viewer.