Ignore:
Timestamp:
Oct 28, 2024, 11:17:48 AM (4 days ago)
Author:
abarral
Message:

Turn comgeom.h comgeom2.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/groupeun_loc.f90

    r5272 r5281  
    11SUBROUTINE groupeun_loc(jjmax,llmax,sb,se,jjb,jje,q)
     2  USE comgeom2_mod_h
    23  USE parallel_lmdz
    34  USE Write_Field_p
    … …  
    1011
    1112
    12   include "comgeom2.h"
    1313
    1414  INTEGER :: jjmax,llmax,sb,se,jjb,jje
    … …  
    138138SUBROUTINE init_groupeun_loc(airen_tab, aires_tab)
    139139
     140  USE comgeom2_mod_h
    140141  USE parallel_lmdz
    141142  USE comconst_mod, ONLY: ngroup
    … …  
    147148
    148149
    149   include "comgeom2.h"
    150150
    151151  ! INTEGER ngroup
Note: See TracChangeset for help on using the changeset viewer.