Changeset 5284 for LMDZ6/trunk/libf/phylmd/lmdz_cloudth.f90
- Timestamp:
- Oct 28, 2024, 2:12:55 PM (6 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/lmdz_cloudth.f90
r5274 r5284 27 27 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 28 28 , RALPD, RBETD, RGAMD 29 USE yoethf_mod_h 29 30 IMPLICIT NONE 30 31 … … 36 37 !=========================================================================== 37 38 38 39 40 INCLUDE "YOETHF.h"41 39 INCLUDE "FCTTRE.h" 42 40 … … 277 275 278 276 279 use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha 277 USE yoethf_mod_h 278 use lmdz_cloudth_ini, only: iflag_cloudth_vert, vert_alpha 280 279 281 280 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & … … 294 293 295 294 296 INCLUDE "YOETHF.h"297 295 INCLUDE "FCTTRE.h" 298 296 … … 624 622 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 625 623 , RALPD, RBETD, RGAMD 624 USE yoethf_mod_h 626 625 IMPLICIT NONE 627 626 … … 632 631 ! Objet : calcule les valeurs de qc et rneb dans les thermiques 633 632 !=========================================================================== 634 635 636 637 INCLUDE "YOETHF.h"638 633 INCLUDE "FCTTRE.h" 639 634 … … 855 850 !=========================================================================== 856 851 857 use lmdz_cloudth_ini, only : iflag_cloudth_vert,iflag_ratqs 852 USE yoethf_mod_h 853 use lmdz_cloudth_ini, only : iflag_cloudth_vert,iflag_ratqs 858 854 use lmdz_cloudth_ini, only : vert_alpha,vert_alpha_th, sigma1s_factor, sigma1s_power , sigma2s_factor , sigma2s_power , cloudth_ratqsmin , iflag_cloudth_vert_noratqs 859 855 … … 875 871 876 872 877 INCLUDE "YOETHF.h"878 873 INCLUDE "FCTTRE.h" 879 874 … … 1296 1291 & cloudth_sth,cloudth_senv,cloudth_sigmath,cloudth_sigmaenv) 1297 1292 1298 use lmdz_cloudth_ini, only: iflag_cloudth_vert 1293 USE yoethf_mod_h 1294 use lmdz_cloudth_ini, only: iflag_cloudth_vert 1299 1295 1300 1296 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & … … 1314 1310 1315 1311 1316 INCLUDE "YOETHF.h"1317 1312 INCLUDE "FCTTRE.h" 1318 1313
Note: See TracChangeset
for help on using the changeset viewer.