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/phylmd/dyn1d/old_1DUTILS_read_interp.h

    r5270 r5271  
    542542     &         ,omega_mod,o3mmr_mod,mxcalc)
    543543
    544        implicit none
    545 
    546       INCLUDE "dimensions.h"
     544       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     545implicit none
     546
     547
    547548
    548549!-------------------------------------------------------------------------
    … …  
    656657     &         ,tke_mod,o3mmr_mod,mxcalc)
    657658
    658        implicit none
    659 
    660       INCLUDE "dimensions.h"
     659       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     660implicit none
     661
     662
    661663
    662664!-------------------------------------------------------------------------
    … …  
    775777     &             ,ts_rico,t_rico,q_rico,u_rico,v_rico,w_rico             &
    776778     &             ,dth_dyn,dqh_dyn)
    777       implicit none
     779      USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     780implicit none
    778781
    779782!-------------------------------------------------------------------------
    780 ! Read RICO forcing data 
     783! Read RICO forcing data
    781784!-------------------------------------------------------------------------
    782       INCLUDE "dimensions.h"
     785
    783786
    784787
    … …  
    10541057     &         ,ht_mod,vt_mod,hq_mod,vq_mod,mxcalc)
    10551058 
    1056        implicit none
    1057  
    1058       INCLUDE "dimensions.h"
     1059       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1060implicit none
     1061
     1062
    10591063
    10601064!-------------------------------------------------------------------------
    … …  
    11761180     &         ,dt_mod_cas,ht_mod_cas,vt_mod_cas,dtrad_mod_cas,dq_mod_cas,hq_mod_cas,vq_mod_cas,mxcalc)
    11771181 
    1178        implicit none
    1179  
    1180        INCLUDE "dimensions.h"
     1182       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1183implicit none
     1184
     1185
    11811186
    11821187!-------------------------------------------------------------------------
    … …  
    13351340     &         ,ht_mod,hq_mod,hu_mod,hv_mod,w_mod,omega_mod,mxcalc)
    13361341 
    1337        implicit none
    1338  
    1339        INCLUDE "dimensions.h"
     1342       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     1343implicit none
     1344
     1345
    13401346
    13411347!-------------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.