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

    r5274 r5284  
    4747  ! ======================================================================
    4848
    49   USE dimphy
     49USE yoethf_mod_h
     50    USE dimphy
    5051  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    5152          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    6364
    6465
    65   include "YOETHF.h"
    6666
    6767  ! Input variables
    … …  
    216216  ! ======================================================================
    217217
    218   USE dimphy
     218USE yoethf_mod_h
     219    USE dimphy
    219220  USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    220221          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    232233
    233234
    234   include "YOETHF.h"
    235235
    236236  ! Input variables
Note: See TracChangeset for help on using the changeset viewer.