Skip to content
Snippets Groups Projects
Commit 6be07beb authored by RIETTE Sébastien's avatar RIETTE Sébastien
Browse files

S. Riette 12 Sept 2023: BF for LMDZ compilation

parent af75bdc8
Branches
Tags
No related merge requests found
......@@ -7,11 +7,9 @@ TYPE MISC_t
INTEGER :: KSV_LGBEG = 0
INTEGER :: KSV_LGEND = 0
LOGICAL :: ONOMIXLG=.FALSE.
INTEGER :: KMI = 1
INTEGER :: KGRADIENTS =0
CHARACTER(LEN=4),DIMENSION(2) :: HLBCX=(/'CYCL','CYCL'/)
CHARACTER(LEN=4),DIMENSION(2) :: HLBCY=(/'CYCL','CYCL'/)
INTEGER :: KSPLIT = 1
INTEGER :: KHALO=1
LOGICAL :: O2D=.FALSE.
LOGICAL :: OFLAT=.FALSE.
......@@ -20,9 +18,6 @@ TYPE MISC_t
LOGICAL :: COMPUTE_SRC=.TRUE.
LOGICAL :: OOCEAN=.FALSE.
LOGICAL :: ODEEPOC=.FALSE.
REAL :: ZCEI_MAX=1.0
REAL :: ZCEI_MIN=0.0
REAL :: ZCOEF_AMPL_SAT=0.0
REAL :: PRSNOW=1.0
INTEGER :: KSV_LIMA_NR=0
INTEGER :: KSV_LIMA_NS=0
......@@ -31,7 +26,6 @@ TYPE MISC_t
LOGICAL :: OIBM=.FALSE.
LOGICAL :: OFLYER=.FALSE.
LOGICAL :: ODIAG_IN_RUN=.FALSE.
CHARACTER(LEN=4) :: HTURBLEN_CL='NONE'
TYPE(TFILEDATA) :: ZTFILE
TYPE(TLES_t) :: TLES
CHARACTER(LEN=6) :: CPROGRAM
......
......@@ -473,14 +473,14 @@ DO JRR=1, KRR
ENDDO
ZRTHS(:,:) = ZTHETAS(:,:) * PRHODJ(:,:)
CALL TURB(PHYEX%CST, PHYEX%CSTURB, PHYEX%MISC%TBUCONF, PHYEX%TURBN, PHYEX%NEBN, D, PHYEX%MISC%TLES, &
& PHYEX%MISC%KMI, KRR, KRRL, KRRI, PHYEX%MISC%HLBCX, PHYEX%MISC%HLBCY, PHYEX%MISC%KGRADIENTS, PHYEX%MISC%KHALO,&
& PHYEX%MISC%KSPLIT,PHYEX%MISC%KMI, KSV, PHYEX%MISC%KSV_LGBEG, PHYEX%MISC%KSV_LGEND, &
& KRR, KRRL, KRRI, PHYEX%MISC%HLBCX, PHYEX%MISC%HLBCY, PHYEX%MISC%KGRADIENTS, PHYEX%MISC%KHALO, &
& PHYEX%TURBN%NTURBSPLIT, PHYEX%TURBN%LCLOUDMODIFLM, KSV, PHYEX%MISC%KSV_LGBEG, PHYEX%MISC%KSV_LGEND, &
& PHYEX%MISC%KSV_LIMA_NR, PHYEX%MISC%KSV_LIMA_NS, PHYEX%MISC%KSV_LIMA_NG, PHYEX%MISC%KSV_LIMA_NH, &
& PHYEX%MISC%O2D, PHYEX%MISC%ONOMIXLG, PHYEX%MISC%OFLAT, PHYEX%MISC%OCOUPLES, &
& PHYEX%MISC%OBLOWSNOW,PHYEX%MISC%OIBM, &
& PHYEX%MISC%OFLYER, PHYEX%MISC%COMPUTE_SRC, PHYEX%MISC%PRSNOW, &
& PHYEX%MISC%OOCEAN, PHYEX%MISC%ODEEPOC, PHYEX%MISC%ODIAG_IN_RUN, &
& PHYEX%MISC%HTURBLEN_CL,PHYEX%MISC%CMICRO, &
& PHYEX%TURBN%CTURBLEN_CLOUD, PHYEX%MISC%CMICRO, &
& pdtphys,PHYEX%MISC%ZTFILE, &
& ZDXX(:,:),ZDYY(:,:),zdzm(:,:), &
& ZDZX(:,:),ZDZY(:,:),zz_flux(:,:), &
......@@ -490,7 +490,7 @@ CALL TURB(PHYEX%CST, PHYEX%CSTURB, PHYEX%MISC%TBUCONF, PHYEX%TURBN, PHYEX%NEBN,
& ZPABST(:,:),ZUT(:,:),ZVT(:,:),PWT(:,:),PTKEM(:,:),ZSVT(:,:,:),ZSRC(:,:), &
& PLENGTHM(:,:),PLENGTHH(:,:),MFMOIST(:,:), &
& ZBL_DEPTH(:),ZSBL_DEPTH(:), &
& ZCEI(:,:),PHYEX%MISC%ZCEI_MIN,PHYEX%MISC%ZCEI_MAX,PHYEX%MISC%ZCOEF_AMPL_SAT, &
& ZCEI(:,:), PHYEX%TURBN%XCEI_MIN, PHYEX%TURBN%XCEI_MAX, PHYEX%TURBN%XCOEF_AMPL_SAT, &
& ZTHETA(:,:),ZRX(:,:,:), &
& ZRUS(:,:),ZRVS(:,:),ZRWS(:,:),ZRTHS(:,:),ZRRS(:,:,:),ZRSVS(:,:,:),ZRTKES(:,:), &
& PSIGS(:,:), &
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment