Ignore:
Timestamp:
Oct 24, 2024, 4:25:39 PM (8 days ago)
Author:
abarral
Message:

Move dimensions.h into a module
Nb: doesn't compile yet

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/vlspltqs.F90

    r5246 r5271  
    2626  USE comconst_mod, ONLY: cpp
    2727  USE logic_mod, ONLY: adv_qsat_liq
    28   IMPLICIT NONE
    29   !
    30   include "dimensions.h"
     28  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     29IMPLICIT NONE
     30  !
     31
    3132  include "paramet.h"
    3233
    … …  
    190191  !
    191192  !   --------------------------------------------------------------------
    192   IMPLICIT NONE
    193   !
    194   include "dimensions.h"
     193  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     194IMPLICIT NONE
     195  !
     196
    195197  include "paramet.h"
    196198  !
    … …  
    554556  USE comconst_mod, ONLY: pi
    555557
    556   IMPLICIT NONE
    557   !
    558   include "dimensions.h"
     558  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     559IMPLICIT NONE
     560  !
     561
    559562  include "paramet.h"
    560563  include "comgeom.h"
Note: See TracChangeset for help on using the changeset viewer.