Skip to content
Snippets Groups Projects
Commit 0a64bf6e authored by Rolf Heilemann Myhre's avatar Rolf Heilemann Myhre
Browse files

remove trailing blanks

parent 54bdbe19
No related branches found
No related tags found
No related merge requests found
......@@ -385,7 +385,7 @@ CONTAINS
ZWSEDW1(JI)= ICEP%XFSEDS * &
& PRHODREF(JI,JJ,JK)**(-ICED%XCEXVT) * &
& (1+(ICED%XFVELOS/PLBDAS(JI,JJ,JK))**ICED%XALPHAS)**(-ICED%XNUS+ICEP%XEXSEDS/ICED%XALPHAS)* &
& PLBDAS(JI,JJ,JK)**(ICED%XBS+ICEP%XEXSEDS)
& PLBDAS(JI,JJ,JK)**(ICED%XBS+ICEP%XEXSEDS)
ELSE
ZWSEDW1(JI)=0.
ENDIF
......@@ -393,7 +393,7 @@ CONTAINS
ZWSEDW2(JI)= ICEP%XFSEDS * &
& PRHODREF(JI,JJ,JK)**(-ICED%XCEXVT) * &
& (1+(ICED%XFVELOS/PLBDAS(JI,JJ,JK))**ICED%XALPHAS)**(-ICED%XNUS+ICEP%XEXSEDS/ICED%XALPHAS)* &
& PLBDAS(JI,JJ,JK)**(ICED%XBS+ICEP%XEXSEDS)
& PLBDAS(JI,JJ,JK)**(ICED%XBS+ICEP%XEXSEDS)
ELSE
ZWSEDW2(JI)=0.
ENDIF
......
......@@ -485,7 +485,7 @@ DO JK = IKTB,IKTE
END DO
DO JK = IKTB,IKTE
DO JIJ = IIJB,IIJE
IF (PARAMI%LSNOW_T) THEN
IF (PARAMI%LSNOW_T) THEN
IF (PRST(JIJ,JK)>ICED%XRTMIN(5)) THEN
IF(ZT(JIJ,JK)>CST%XTT-10.0) THEN
ZLBDAS(JIJ,JK) = MAX(MIN(ICED%XLBDAS_MAX, 10**(14.554-0.0423*ZT(JIJ,JK))),ICED%XLBDAS_MIN)*ICED%XTRANS_MP_GAMMAS
......@@ -825,7 +825,7 @@ IF (KSIZE > 0) THEN
IF (LLSIGMA_RC) THEN
DO JL=1, IMICRO
ZSIGMA_RC(JL)=ZSIGMA_RC(JL)*2.
ENDDO
ENDDO
ENDIF
IF (LL_AUCV_ADJU) THEN
DO JL=1, IMICRO
......@@ -1141,9 +1141,9 @@ DO JK=IKTB,IKTE
ENDDO
ENDDO
CALL ICE4_NUCLEATION(CST, PARAMI, ICEP, ICED, D%NIJT*D%NKT, LLW3D(:,:), &
PTHT(:, :), PPABST(:, :), PRHODREF(:, :), &
PEXN(:, :), ZW3D(:, :), ZT(:, :), &
PRVT(:, :), &
PTHT(:, :), PPABST(:, :), PRHODREF(:, :), &
PEXN(:, :), ZW3D(:, :), ZT(:, :), &
PRVT(:, :), &
PCIT(:, :), ZZ_RVHENI_MR(:, :))
!
!-------------------------------------------------------------------------------
......@@ -1468,7 +1468,7 @@ IF(BUCONF%LBU_ENABLE) THEN
DO JL=1, KSIZE
ZW(I1TOT(JL), I2TOT(JL)) = ZTOT_RGWETH(JL) * ZINV_TSTEP
END DO
#endif
#endif
#ifdef REPRO48
IF (BUCONF%LBUDGET_RG) CALL BUDGET_STORE_ADD_PHY(D, TBUDGETS(NBUDGET_RG), 'HGCV', (-ZW5(:, :)-ZW(:, :))*PRHODJ(:, :))
#endif
......@@ -1710,7 +1710,7 @@ ENDIF
!
!-------------------------------------------------------------------------------
!
!* 9. COMPUTE THE FOG DEPOSITION TERM
!* 9. COMPUTE THE FOG DEPOSITION TERM
! -------------------------------------
!
IF (PARAMI%LDEPOSC) THEN !cloud water deposition on vegetation
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment