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/lmdz_thermcell_old.F90

    r5274 r5284  
    730730    , r_aspect, l_mix, w2di, tho)
    731731
    732   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     732USE yoethf_mod_h
     733    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    733734          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    734735          , R_ecc, R_peri, R_incl                                      &
    … …  
    769770  ! -------------
    770771
    771   include "YOETHF.h"
    772772  include "FCTTRE.h"
    773773
    … …  
    23422342    , r_aspect, l_mix, w2di, tho)
    23432343
    2344   USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
     2344USE yoethf_mod_h
     2345    USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    23452346          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    23462347          , R_ecc, R_peri, R_incl                                      &
    … …  
    23812382  ! -------------
    23822383
    2383   include "YOETHF.h"
    23842384  include "FCTTRE.h"
    23852385
Note: See TracChangeset for help on using the changeset viewer.