Ignore:
Timestamp:
Jul 29, 2024, 5:47:53 PM (3 months ago)
Author:
abarral
Message:

Put YOEGWD.h, FCTTRE.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmdiso/isotopes_routines_mod.F90

    r5139 r5143  
    1284312843    USE isotrac_mod, ONLY: izone_cont,index_zone,index_iso
    1284412844#endif
     12845USE lmdz_YOETHF
     12846USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     12847
    1284512848        IMPLICIT NONE
    1284612849
    … …  
    1284812851        ! fond, etc...
    1284912852        ! commun aux dfférentes sous-surfaces.
    12850 
    12851  include "YOETHF.h"
    12852  include "FCTTRE.h"
    1285312853
    1285412854         ! inputs
    … …  
    1340713407&       bassin_map
    1340813408#endif
     13409USE lmdz_YOETHF
     13410USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     13411
    1340913412        IMPLICIT NONE
    13410 
    13411  include "YOETHF.h"
    13412  include "FCTTRE.h"
    1341313413
    1341413414        ! inputs
    … …  
    1431814318&       bassin_map
    1431914319#endif
     14320USE lmdz_YOETHF
     14321USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    1432014322
    1432114323        IMPLICIT NONE
    1432214324
    14323  include "YOETHF.h"
    14324  include "FCTTRE.h"
    14325        
    1432614325        ! inputs
    1432714326        INTEGER klon,knon
Note: See TracChangeset for help on using the changeset viewer.