Changeset 5274 for LMDZ6/trunk/libf/phylmd/clcdrag.f90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (9 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/clcdrag.f90
r5268 r5274 10 10 USE indice_sol_mod 11 11 12 IMPLICIT NONE 12 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 13 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 14 , R_ecc, R_peri, R_incl & 15 , RA, RG, R1SA & 16 , RSIGMA & 17 , R, RMD, RMV, RD, RV, RCPD & 18 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 19 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 20 , RCW, RCS & 21 , RLVTT, RLSTT, RLMLT, RTT, RATM & 22 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 23 , RALPD, RBETD, RGAMD 24 IMPLICIT NONE 13 25 ! ================================================================= c 14 26 ! 15 ! Objet : calcul des cdrags pour le moment (pcfm) et 16 ! les flux de chaleur sensible et latente (pcfh). 27 ! Objet : calcul des cdrags pour le moment (pcfm) et 28 ! les flux de chaleur sensible et latente (pcfh). 17 29 ! 18 30 ! ================================================================= c … … 28 40 ! rugos---input-R- rugosite 29 41 ! 30 ! pcfm---output-R- cdrag pour le moment 42 ! pcfm---output-R- cdrag pour le moment 31 43 ! pcfh---output-R- cdrag pour les flux de chaleur latente et sensible 32 44 ! … … 41 53 ! ================================================================= c 42 54 ! 43 INCLUDE "YOMCST.h" 55 44 56 INCLUDE "YOETHF.h" 45 57 INCLUDE "clesphys.h"
Note: See TracChangeset
for help on using the changeset viewer.