Changeset 5274 for LMDZ6/trunk/libf/phylmd/borne_var_surf.f90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (31 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/borne_var_surf.f90
r5268 r5274 7 7 zrh2m_cor, zqsat2m_cor) 8 8 9 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 10 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 11 , R_ecc, R_peri, R_incl & 12 , RA, RG, R1SA & 13 , RSIGMA & 14 , R, RMD, RMV, RD, RV, RCPD & 15 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 16 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 17 , RCW, RCS & 18 , RLVTT, RLSTT, RLMLT, RTT, RATM & 19 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 20 , RALPD, RBETD, RGAMD 9 21 IMPLICIT NONE 10 22 … … 18 30 REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: t2m, q2m, u10m, v10m 19 31 REAL,DIMENSION(klon,nbsrf),INTENT(IN) :: ftsol, pctsrf 20 REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs 32 REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs 21 33 REAL,DIMENSION(klon),INTENT(IN) :: qsurf 22 34 REAL,DIMENSION (klon),INTENT(OUT) :: zt2m_cor, zq2m_cor, zu10m_cor, zv10m_cor … … 28 40 REAL,DIMENSION (klon,nbsrf) :: t2m_cor, q2m_cor, u10m_cor, v10m_cor 29 41 REAL :: zx_qs1, zcor1, zdelta1 30 include "YOMCST.h" 42 31 43 include "YOETHF.h" 32 44 include "FCTTRE.h"
Note: See TracChangeset
for help on using the changeset viewer.