Ignore:
Timestamp:
Oct 28, 2024, 2:12:55 PM (4 days ago)
Author:
abarral
Message:

Turn alpale.h alpale.f90 YOETHF.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r5274 r5284  
    15431543          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    15441544          , RALPD, RBETD, RGAMD
     1545  USE yoethf_mod_h
    15451546implicit none
    15461547
    … …  
    15621563! Declaration des constantes et des fonctions thermodynamiques
    15631564!
    1564 
    1565 include "YOETHF.h"
    15661565!
    15671566!  ----------------------------------------
    … …  
    16381637          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    16391638          , RALPD, RBETD, RGAMD
     1639  USE yoethf_mod_h
    16401640implicit none
    16411641
    … …  
    16691669!
    16701670
    1671 include "YOETHF.h"
    16721671!
    16731672!  ----------------------------------------
Note: See TracChangeset for help on using the changeset viewer.