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/phylmd/nuage.F90

    r5139 r5143  
    343343SUBROUTINE diagcld2(paprs, pplay, t, q, diafra, dialiq)
    344344  USE dimphy
     345  USE lmdz_YOETHF
     346  USE lmdz_fcttre, ONLY: foeew, foede, qsats, qsatl, dqsats, dqsatl, thermcep
     347
    345348  IMPLICIT NONE
    346349
    … …  
    374377  REAL zqs, zrhb, zcll, zdthmin(klon), zdthdp
    375378  REAL zdelta, zcor
    376 
    377   ! Fonctions thermodynamiques:
    378   include "YOETHF.h"
    379   include "FCTTRE.h"
    380379
    381380  ! Initialisation:
Note: See TracChangeset for help on using the changeset viewer.