Skip to content
Snippets Groups Projects
Commit d5c6138b authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 03/05/2022: Expand in physical points : emoist and etheta functions

parent 78c74d69
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/common/turb/mode_emoist.F90
+ 53
− 37
View file @ d5c6138b
...@@ -77,7 +77,7 @@ REAL, DIMENSION(D%NIT,D%NJT,D%NKT,KRR), INTENT(IN) :: PRM ! Mixing ratios ...@@ -77,7 +77,7 @@ REAL, DIMENSION(D%NIT,D%NJT,D%NKT,KRR), INTENT(IN) :: PRM ! Mixing ratios
! PRM(:,:,:,1) = conservative mixing ratio ! PRM(:,:,:,1) = conservative mixing ratio
REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PLOCPEXNM ! Lv(T)/Cp/Exner at time t-1 REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PLOCPEXNM ! Lv(T)/Cp/Exner at time t-1
REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PAMOIST ! Amoist REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PAMOIST ! Amoist
REAL, DIMENSION(:,:,:), INTENT(IN) :: PSRCM ! Normalized 2dn_order REAL, DIMENSION(D%NIT,D%NJT,D%NKT), INTENT(IN) :: PSRCM ! Normalized 2dn_order
! moment s'r'c/2Sigma_s2 ! moment s'r'c/2Sigma_s2
! !
REAL,DIMENSION(D%NIT,D%NJT,D%NKT) :: PEMOIST ! result REAL,DIMENSION(D%NIT,D%NJT,D%NKT) :: PEMOIST ! result
...@@ -90,6 +90,7 @@ REAL,DIMENSION(D%NIT,D%NJT,D%NKT) :: & ...@@ -90,6 +90,7 @@ REAL,DIMENSION(D%NIT,D%NJT,D%NKT) :: &
REAL :: ZDELTA ! = Rv/Rd - 1 REAL :: ZDELTA ! = Rv/Rd - 1
INTEGER :: JRR ! moist loop counter INTEGER :: JRR ! moist loop counter
INTEGER :: JI,JJ,JK ! loop counter INTEGER :: JI,JJ,JK ! loop counter
INTEGER :: IIB,IJB,IIE,IJE
! !
!--------------------------------------------------------------------------- !---------------------------------------------------------------------------
! !
...@@ -100,73 +101,88 @@ INTEGER :: JI,JJ,JK ! loop counter ...@@ -100,73 +101,88 @@ INTEGER :: JI,JJ,JK ! loop counter
REAL(KIND=JPRB) :: ZHOOK_HANDLE REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK('EMOIST',0,ZHOOK_HANDLE) IF (LHOOK) CALL DR_HOOK('EMOIST',0,ZHOOK_HANDLE)
! !
IIE=D%NIEC
IIB=D%NIBC
IJE=D%NJEC
IJB=D%NJBC
!
IF (OOCEAN) THEN IF (OOCEAN) THEN
IF ( KRR == 0 ) THEN ! Unsalted IF ( KRR == 0 ) THEN ! Unsalted
PEMOIST(:,:,:) = 0. !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
PEMOIST(IIB:IIE,IJB:IJE,1:D%NKT) = 0.
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)v
ELSE ELSE
PEMOIST(:,:,:) = 1. ! Salted case !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
PEMOIST(IIB:IIE,IJB:IJE,1:D%NKT) = 1. ! Salted case
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
END IF END IF
! !
ELSE ELSE
! !
IF ( KRR == 0 ) THEN ! dry case IF ( KRR == 0 ) THEN ! dry case
PEMOIST(:,:,:) = 0. PEMOIST(IIB:IIE,IJB:IJE,1:D%NKT) = 0.
ELSE IF ( KRR == 1 ) THEN ! only vapor ELSE IF ( KRR == 1 ) THEN ! only vapor
ZDELTA = (CST%XRV/CST%XRD) - 1. ZDELTA = (CST%XRV/CST%XRD) - 1.
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
PEMOIST(:,:,:) = ZDELTA*PTHLM(:,:,:) PEMOIST(IIB:IIE,IJB:IJE,1:D%NKT) = ZDELTA*PTHLM(IIB:IIE,IJB:IJE,1:D%NKT)
!$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ELSE ! liquid water & ice present ELSE ! liquid water & ice present
ZDELTA = (CST%XRV/CST%XRD) - 1. ZDELTA = (CST%XRV/CST%XRD) - 1.
ZRW(:,:,:) = PRM(:,:,:,1) ZRW(IIB:IIE,IJB:IJE,1:D%NKT) = PRM(IIB:IIE,IJB:IJE,1:D%NKT,1)
! !
IF ( KRRI>0) THEN ! rc and ri case IF ( KRRI>0) THEN ! rc and ri case
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ZRW(:,:,:) = ZRW(:,:,:) + PRM(:,:,:,3) ZRW(IIB:IIE,IJB:IJE,1:D%NKT) = ZRW(IIB:IIE,IJB:IJE,1:D%NKT) + PRM(IIB:IIE,IJB:IJE,1:D%NKT,3)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
DO JRR=5,KRR DO JRR=5,KRR
ZRW(:,:,:) = ZRW(:,:,:) + PRM(:,:,:,JRR) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ZRW(IIB:IIE,IJB:IJE,1:D%NKT) = ZRW(IIB:IIE,IJB:IJE,1:D%NKT) + PRM(IIB:IIE,IJB:IJE,1:D%NKT,JRR)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ENDDO ENDDO
ZA(:,:,:) = 1. + ( & ! Compute A !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
(1.+ZDELTA) * (PRM(:,:,:,1) - PRM(:,:,:,2) - PRM(:,:,:,4)) & ZA(IIB:IIE,IJB:IJE,1:D%NKT) = 1. + ( & ! Compute A
-ZRW(:,:,:) & (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,1:D%NKT,1) - PRM(IIB:IIE,IJB:IJE,1:D%NKT,2) - PRM(IIB:IIE,IJB:IJE,1:D%NKT,4)) &
) / (1. + ZRW(:,:,:)) -ZRW(IIB:IIE,IJB:IJE,1:D%NKT) &
) / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT))
! !
! Emoist = ZB + ZC * Amoist ! Emoist = ZB + ZC * Amoist
! ZB is computed from line 1 to line 2 ! ZB is computed from line 1 to line 2
! ZC is computed from line 3 to line 5 ! ZC is computed from line 3 to line 5
! Amoist* 2 * SRC is computed at line 6 ! Amoist* 2 * SRC is computed at line 6
! !
PEMOIST(:,:,:) = ZDELTA * (PTHLM(:,:,:) + PLOCPEXNM(:,:,:)*( & PEMOIST(IIB:IIE,IJB:IJE,1:D%NKT) = ZDELTA * (PTHLM(IIB:IIE,IJB:IJE,1:D%NKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT)*( &
PRM(:,:,:,2)+PRM(:,:,:,4)))& PRM(IIB:IIE,IJB:IJE,1:D%NKT,2)+PRM(IIB:IIE,IJB:IJE,1:D%NKT,4)))&
/ (1. + ZRW(:,:,:)) & / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT)) &
+( PLOCPEXNM(:,:,:) * ZA(:,:,:) & +( PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT) * ZA(IIB:IIE,IJB:IJE,1:D%NKT) &
-(1.+ZDELTA) * (PTHLM(:,:,:) + PLOCPEXNM(:,:,:)*( & -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,1:D%NKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT)*( &
PRM(:,:,:,2)+PRM(:,:,:,4)))& PRM(IIB:IIE,IJB:IJE,1:D%NKT,2)+PRM(IIB:IIE,IJB:IJE,1:D%NKT,4)))&
/ (1. + ZRW(:,:,:)) & / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT)) &
) * PAMOIST(:,:,:) * 2. * PSRCM(:,:,:) ) * PAMOIST(IIB:IIE,IJB:IJE,1:D%NKT) * 2. * PSRCM(IIB:IIE,IJB:IJE,1:D%NKT)
!$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ELSE ELSE
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT)
DO JRR=3,KRR DO JRR=3,KRR
ZRW(:,:,:) = ZRW(:,:,:) + PRM(:,:,:,JRR) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ZRW(IIB:IIE,IJB:IJE,1:D%NKT) = ZRW(IIB:IIE,IJB:IJE,1:D%NKT) + PRM(IIB:IIE,IJB:IJE,1:D%NKT,JRR)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ENDDO ENDDO
ZA(:,:,:) = 1. + ( & ! Compute ZA !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
(1.+ZDELTA) * (PRM(:,:,:,1) - PRM(:,:,:,2)) & ZA(IIB:IIE,IJB:IJE,1:D%NKT) = 1. + ( & ! Compute ZA
-ZRW(:,:,:) & (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,1:D%NKT,1) - PRM(IIB:IIE,IJB:IJE,1:D%NKT,2)) &
) / (1. + ZRW(:,:,:)) -ZRW(IIB:IIE,IJB:IJE,1:D%NKT) &
) / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT))
! !
! Emoist = ZB + ZC * Amoist ! Emoist = ZB + ZC * Amoist
! ZB is computed from line 1 to line 2 ! ZB is computed from line 1 to line 2
! ZC is computed from line 3 to line 5 ! ZC is computed from line 3 to line 5
! Amoist* 2 * SRC is computed at line 6 ! Amoist* 2 * SRC is computed at line 6
! !
PEMOIST(:,:,:) = ZDELTA * (PTHLM(:,:,:) + PLOCPEXNM(:,:,:)*PRM(:,:,:,2)) & PEMOIST(IIB:IIE,IJB:IJE,1:D%NKT) = ZDELTA * (PTHLM(IIB:IIE,IJB:IJE,1:D%NKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT)*PRM(IIB:IIE,IJB:IJE,1:D%NKT,2)) &
/ (1. + ZRW(:,:,:)) & / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT)) &
+( PLOCPEXNM(:,:,:) * ZA(:,:,:) & +( PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT) * ZA(IIB:IIE,IJB:IJE,1:D%NKT) &
-(1.+ZDELTA) * (PTHLM(:,:,:) + PLOCPEXNM(:,:,:)*PRM(:,:,:,2)) & -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,1:D%NKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT)*PRM(IIB:IIE,IJB:IJE,1:D%NKT,2)) &
/ (1. + ZRW(:,:,:)) & / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT)) &
) * PAMOIST(:,:,:) * 2. * PSRCM(:,:,:) ) * PAMOIST(IIB:IIE,IJB:IJE,1:D%NKT) * 2. * PSRCM(IIB:IIE,IJB:IJE,1:D%NKT)
!$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
END IF END IF
END IF END IF
! !
......
src/common/turb/mode_etheta.F90
+ 51
− 34
View file @ d5c6138b
...@@ -94,6 +94,7 @@ REAL,DIMENSION(D%NIT,D%NJT,D%NKT) :: & ...@@ -94,6 +94,7 @@ REAL,DIMENSION(D%NIT,D%NJT,D%NKT) :: &
REAL :: ZDELTA ! = Rv/Rd - 1 REAL :: ZDELTA ! = Rv/Rd - 1
INTEGER :: JRR ! moist loop counter INTEGER :: JRR ! moist loop counter
INTEGER :: JI,JJ,JK ! loop counter INTEGER :: JI,JJ,JK ! loop counter
INTEGER :: IIB,IJB,IIE,IJE
! !
!--------------------------------------------------------------------------- !---------------------------------------------------------------------------
! !
...@@ -104,64 +105,80 @@ INTEGER :: JI,JJ,JK ! loop counter ...@@ -104,64 +105,80 @@ INTEGER :: JI,JJ,JK ! loop counter
! !
REAL(KIND=JPRB) :: ZHOOK_HANDLE REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK('ETHETA',0,ZHOOK_HANDLE) IF (LHOOK) CALL DR_HOOK('ETHETA',0,ZHOOK_HANDLE)
!
IIE=D%NIEC
IIB=D%NIBC
IJE=D%NJEC
IJB=D%NJBC
!
IF (OOCEAN) THEN ! ocean case IF (OOCEAN) THEN ! ocean case
PETHETA(:,:,:) = 1. !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
PETHETA(IIB:IIE,IJB:IJE,1:D%NKT) = 1.
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ELSE ELSE
IF ( KRR == 0) THEN ! dry case IF ( KRR == 0) THEN ! dry case
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
PETHETA(:,:,:) = 1. PETHETA(IIB:IIE,IJB:IJE,1:D%NKT) = 1.
!$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ELSE IF ( KRR == 1 ) THEN ! only vapor ELSE IF ( KRR == 1 ) THEN ! only vapor
ZDELTA = (CST%XRV/CST%XRD) - 1. ZDELTA = (CST%XRV/CST%XRD) - 1.
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
PETHETA(:,:,:) = 1. + ZDELTA*PRM(:,:,:,1) PETHETA(IIB:IIE,IJB:IJE,1:D%NKT) = 1. + ZDELTA*PRM(IIB:IIE,IJB:IJE,1:D%NKT,1)
!$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ELSE ! liquid water & ice present ELSE ! liquid water & ice present
ZDELTA = (CST%XRV/CST%XRD) - 1. ZDELTA = (CST%XRV/CST%XRD) - 1.
ZRW(:,:,:) = PRM(:,:,:,1) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ZRW(IIB:IIE,IJB:IJE,1:D%NKT) = PRM(IIB:IIE,IJB:IJE,1:D%NKT,1)
!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
! !
IF ( KRRI>0 ) THEN ! rc and ri case IF ( KRRI>0 ) THEN ! rc and ri case
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ZRW(:,:,:) = ZRW(:,:,:) + PRM(:,:,:,3) ZRW(IIB:IIE,IJB:IJE,1:D%NKT) = ZRW(IIB:IIE,IJB:IJE,1:D%NKT) + PRM(IIB:IIE,IJB:IJE,1:D%NKT,3)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
DO JRR=5,KRR DO JRR=5,KRR
ZRW(:,:,:) = ZRW(:,:,:) + PRM(:,:,:,JRR) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ZRW(IIB:IIE,IJB:IJE,1:D%NKT) = ZRW(IIB:IIE,IJB:IJE,1:D%NKT) + PRM(IIB:IIE,IJB:IJE,1:D%NKT,JRR)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ENDDO ENDDO
ZA(:,:,:) = 1. + ( & ! Compute A !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
(1.+ZDELTA) * (PRM(:,:,:,1) - PRM(:,:,:,2) - PRM(:,:,:,4)) & ZA(IIB:IIE,IJB:IJE,1:D%NKT) = 1. + ( & ! Compute A
-ZRW(:,:,:) & (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,1:D%NKT,1) - PRM(IIB:IIE,IJB:IJE,1:D%NKT,2) - PRM(IIB:IIE,IJB:IJE,1:D%NKT,4)) &
) / (1. + ZRW(:,:,:)) -ZRW(IIB:IIE,IJB:IJE,1:D%NKT) &
) / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT))
! !
! Etheta = ZA + ZC * Atheta ! Etheta = ZA + ZC * Atheta
! ZC is computed from line 2 to line 5 ! ZC is computed from line 2 to line 5
! - Atheta * 2. * SRC is computed at line 6 ! - Atheta * 2. * SRC is computed at line 6
! !
PETHETA(:,:,:) = ZA(:,:,:) & PETHETA(IIB:IIE,IJB:IJE,1:D%NKT) = ZA(IIB:IIE,IJB:IJE,1:D%NKT) &
+( PLOCPEXNM(:,:,:) * ZA(:,:,:) & +( PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT) * ZA(IIB:IIE,IJB:IJE,1:D%NKT) &
-(1.+ZDELTA) * (PTHLM(:,:,:) + PLOCPEXNM(:,:,:)*( & -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,1:D%NKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT)*( &
PRM(:,:,:,2)+PRM(:,:,:,4)))& PRM(IIB:IIE,IJB:IJE,1:D%NKT,2)+PRM(IIB:IIE,IJB:IJE,1:D%NKT,4)))&
/ (1. + ZRW(:,:,:)) & / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT)) &
) * PATHETA(:,:,:) * 2. * PSRCM(:,:,:) ) * PATHETA(IIB:IIE,IJB:IJE,1:D%NKT) * 2. * PSRCM(IIB:IIE,IJB:IJE,1:D%NKT)
!$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ELSE ELSE
!$mnh_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT)
DO JRR=3,KRR DO JRR=3,KRR
ZRW(:,:,:) = ZRW(:,:,:) + PRM(:,:,:,JRR) !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ZRW(IIB:IIE,IJB:IJE,1:D%NKT) = ZRW(IIB:IIE,IJB:IJE,1:D%NKT) + PRM(IIB:IIE,IJB:IJE,1:D%NKT,JRR)
!$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
ENDDO ENDDO
ZA(:,:,:) = 1. + ( & ! Compute A !$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
(1.+ZDELTA) * (PRM(:,:,:,1) - PRM(:,:,:,2)) & ZA(IIB:IIE,IJB:IJE,1:D%NKT) = 1. + ( & ! Compute A
-ZRW(:,:,:) & (1.+ZDELTA) * (PRM(IIB:IIE,IJB:IJE,1:D%NKT,1) - PRM(IIB:IIE,IJB:IJE,1:D%NKT,2)) &
) / (1. + ZRW(:,:,:)) -ZRW(IIB:IIE,IJB:IJE,1:D%NKT) &
) / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT))
! !
! Etheta = ZA + ZC * Atheta ! Etheta = ZA + ZC * Atheta
! ZC is computed from line 2 to line 5 ! ZC is computed from line 2 to line 5
! - Atheta * 2. * SRC is computed at line 6 ! - Atheta * 2. * SRC is computed at line 6
! !
PETHETA(:,:,:) = ZA(:,:,:) & PETHETA(IIB:IIE,IJB:IJE,1:D%NKT) = ZA(IIB:IIE,IJB:IJE,1:D%NKT) &
+( PLOCPEXNM(:,:,:) * ZA(:,:,:) & +( PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT) * ZA(IIB:IIE,IJB:IJE,1:D%NKT) &
-(1.+ZDELTA) * (PTHLM(:,:,:) + PLOCPEXNM(:,:,:)*PRM(:,:,:,2)) & -(1.+ZDELTA) * (PTHLM(IIB:IIE,IJB:IJE,1:D%NKT) + PLOCPEXNM(IIB:IIE,IJB:IJE,1:D%NKT)*PRM(IIB:IIE,IJB:IJE,1:D%NKT,2)) &
/ (1. + ZRW(:,:,:)) & / (1. + ZRW(IIB:IIE,IJB:IJE,1:D%NKT)) &
) * PATHETA(:,:,:) * 2. * PSRCM(:,:,:) ) * PATHETA(IIB:IIE,IJB:IJE,1:D%NKT) * 2. * PSRCM(IIB:IIE,IJB:IJE,1:D%NKT)
!$mnh_end_expand_array(JI=1:D%NIT,JJ=1:D%NJT,JK=1:D%NKT) !$mnh_end_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:D%NKT)
END IF END IF
END IF END IF
! !
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme