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_cloudth.f90

    r5274 r5284  
    2727          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2828          , RALPD, RBETD, RGAMD
     29      USE yoethf_mod_h
    2930IMPLICIT NONE
    3031
    … …  
    3637!===========================================================================
    3738
    38 
    39 
    40       INCLUDE "YOETHF.h"
    4139      INCLUDE "FCTTRE.h"
    4240
    … …  
    277275
    278276
    279       use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha
     277USE yoethf_mod_h
     278            use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha
    280279
    281280      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    … …  
    294293
    295294
    296       INCLUDE "YOETHF.h"
    297295      INCLUDE "FCTTRE.h"
    298296     
    … …  
    624622          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    625623          , RALPD, RBETD, RGAMD
     624      USE yoethf_mod_h
    626625IMPLICIT NONE
    627626
    … …  
    632631! Objet : calcule les valeurs de qc et rneb dans les thermiques
    633632!===========================================================================
    634 
    635 
    636 
    637       INCLUDE "YOETHF.h"
    638633      INCLUDE "FCTTRE.h"
    639634
    … …  
    855850!===========================================================================
    856851
    857       use lmdz_cloudth_ini, only : iflag_cloudth_vert,iflag_ratqs
     852USE yoethf_mod_h
     853            use lmdz_cloudth_ini, only : iflag_cloudth_vert,iflag_ratqs
    858854      use lmdz_cloudth_ini, only : vert_alpha,vert_alpha_th, sigma1s_factor, sigma1s_power , sigma2s_factor , sigma2s_power , cloudth_ratqsmin , iflag_cloudth_vert_noratqs
    859855
    … …  
    875871
    876872
    877       INCLUDE "YOETHF.h"
    878873      INCLUDE "FCTTRE.h"
    879874     
    … …  
    12961291     &           cloudth_sth,cloudth_senv,cloudth_sigmath,cloudth_sigmaenv)
    12971292
    1298       use lmdz_cloudth_ini, only: iflag_cloudth_vert
     1293USE yoethf_mod_h
     1294            use lmdz_cloudth_ini, only: iflag_cloudth_vert
    12991295
    13001296      USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    … …  
    13141310
    13151311
    1316       INCLUDE "YOETHF.h"
    13171312      INCLUDE "FCTTRE.h"
    13181313
Note: See TracChangeset for help on using the changeset viewer.