Ignore:
Timestamp:
Oct 24, 2024, 4:25:39 PM (7 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/vlsplt.F90

    r5248 r5271  
    1919  !
    2020  !   --------------------------------------------------------------------
    21   IMPLICIT NONE
    22   !
    23   include "dimensions.h"
     21  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     22IMPLICIT NONE
     23  !
     24
    2425  include "paramet.h"
    2526
    … …  
    136137  !
    137138  !   --------------------------------------------------------------------
    138   IMPLICIT NONE
    139   !
    140   include "dimensions.h"
     139  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     140IMPLICIT NONE
     141  !
     142
    141143  include "paramet.h"
    142144  include "iniprint.h"
    … …  
    495497  !   --------------------------------------------------------------------
    496498  USE comconst_mod, ONLY: pi
    497   IMPLICIT NONE
    498   !
    499   include "dimensions.h"
     499  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     500IMPLICIT NONE
     501  !
     502
    500503  include "paramet.h"
    501504  include "comgeom.h"
    … …  
    857860  !
    858861  !   --------------------------------------------------------------------
    859   IMPLICIT NONE
    860   !
    861   include "dimensions.h"
     862  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     863IMPLICIT NONE
     864  !
     865
    862866  include "paramet.h"
    863867  !
    … …  
    10141018 ! SUBROUTINE minmaxq(zq,qmin,qmax,comment)
    10151019!
    1016 !#include "dimensions.h"
    1017 !#include "paramet.h"
     1020!INCLUDE "dimensions_mod.f90"
     1021!INCLUDE "paramet.h"
    10181022
    10191023!  CHARACTER*(*) comment
    … …  
    10431047!  end
    10441048subroutine minmaxq(zq,qmin,qmax,comment)
    1045 
    1046 #include "dimensions.h"
    1047 #include "paramet.h"
     1049  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1050  INCLUDE "paramet.h"
    10481051
    10491052  character(len=20) :: comment
Note: See TracChangeset for help on using the changeset viewer.