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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/stdlevvar_mod.f90

    r5274 r5284  
    3232                           ts1, qsurf, z0m, z0h, psol, pat1, &
    3333                           t_2m, q_2m, t_10m, q_10m, u_10m, ustar, s_pblh, prain, tsol)
     34        USE yoethf_mod_h
    3435      IMPLICIT NONE
    3536!-------------------------------------------------------------------------
    … …  
    8485!-------------------------------------------------------------------------
    8586      include "flux_arp.h"
    86 !IM PLUS
    87       include "YOETHF.h"
    8887!
    8988! Quelques constantes et options:
    … …  
    343342          , RALPD, RBETD, RGAMD
    344343      USE ioipsl_getin_p_mod, ONLY : getin_p
     344      USE yoethf_mod_h
    345345      IMPLICIT NONE
    346346!-------------------------------------------------------------------------
    … …  
    404404!-------------------------------------------------------------------------
    405405      include "flux_arp.h"
    406 !IM PLUS
    407       include "YOETHF.h"
    408406!
    409407! Quelques constantes et options:
Note: See TracChangeset for help on using the changeset viewer.