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

Put YOEGWD.h, FCTTRE.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

    r5142 r5143  
    13181318    ! ========================================================
    13191319    USE dimphy
     1320    USE lmdz_YOETHF
     1321    USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    13201322
    13211323    IMPLICIT NONE
    … …  
    13391341
    13401342    include "YOMCST.h"
    1341     include "YOETHF.h"
    1342 
    1343     !  ----------------------------------------
    1344     !  Statement functions
    1345     include "FCTTRE.h"
    1346     !  ----------------------------------------
    13471343
    13481344    DO k = 1, klev
    … …  
    13981394    ! ========================================================
    13991395    USE dimphy
     1396    USE lmdz_YOETHF
     1397    USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
    14001398
    14011399    IMPLICIT NONE
    … …  
    14301428
    14311429    include "YOMCST.h"
    1432     include "YOETHF.h"
    1433 
    1434     !  ----------------------------------------
    1435     !  Statement functions
    1436     include "FCTTRE.h"
    1437     !  ----------------------------------------
    14381430
    14391431    print *, 'dtime, tau ', dtime, tau
Note: See TracChangeset for help on using the changeset viewer.