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/conccm.f90

    r5274 r5284  
    1818          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    1919          , RALPD, RBETD, RGAMD
     20  USE yoethf_mod_h
    2021IMPLICIT NONE
    2122  ! ======================================================================
    … …  
    2425  ! (schema standard du modele NCAR CCM2)
    2526  ! ======================================================================
    26 
    27   include "YOETHF.h"
    2827
    2928  ! Entree:
    … …  
    162161          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    163162          , RALPD, RBETD, RGAMD
     163  USE yoethf_mod_h
    164164  IMPLICIT NONE
    165165  ! -----------------------------------------------------------------------
    … …  
    314314
    315315  REAL qhalf, sh1, sh2, shbs1, shbs2
    316   include "YOETHF.h"
    317316  include "FCTTRE.h"
    318317  qhalf(sh1, sh2, shbs1, shbs2) = min(max(sh1,sh2), &
Note: See TracChangeset for help on using the changeset viewer.