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/dyn3d/groupeun.f90

    r5272 r5281  
    44SUBROUTINE groupeun(jjmax,llmax,q)
    55
     6  USE comgeom2_mod_h
    67  USE comconst_mod, ONLY: ngroup
    78
    … …  
    1314
    1415
    15   include "comgeom2.h"
    1616
    1717  INTEGER :: jjmax,llmax
    … …  
    141141SUBROUTINE INIT_GROUPEUN(airen_tab, aires_tab)
    142142
     143  USE comgeom2_mod_h
    143144  USE comconst_mod, ONLY: ngroup
    144145
    … …  
    150151
    151152
    152   include "comgeom2.h"
    153153
    154154  ! INTEGER ngroup
Note: See TracChangeset for help on using the changeset viewer.