Skip to content

Commit 4997327

Browse files
committed
Merge branch 'MPAS-v8.0/sf_sfclay' into develop (PR #1063)
This merge updates physics_wrf/module_sf_sfclay.F to be consistent with what is available in the WRF release 4.5. The main update is changing the intent of the variable QSFC from intent(out) to intent(inout).
2 parents 76d994f + 9f728d1 commit 4997327

1 file changed

Lines changed: 2 additions & 5 deletions

File tree

src/core_atmosphere/physics/physics_wrf/module_sf_sfclay.F

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -138,14 +138,12 @@ SUBROUTINE SFCLAY(U3D,V3D,T3D,QV3D,P3D,dz8w, &
138138
XLAND, &
139139
TSK
140140
141-
!
142141
REAL, DIMENSION( ims:ime, jms:jme ) , &
143142
INTENT(INOUT) :: REGIME, &
144143
HFX, &
145144
QFX, &
146145
LH, &
147146
MOL,RMOL
148-
!m the following 5 are change to memory size
149147
!
150148
REAL, DIMENSION( ims:ime, jms:jme ) , &
151149
INTENT(INOUT) :: GZ1OZ0,WSPD,BR, &
@@ -326,13 +324,12 @@ SUBROUTINE SFCLAY1D(J,UX,VX,T1D,QV1D,P1D,dz8w1d, &
326324
327325
REAL, DIMENSION( ims:ime ) , &
328326
INTENT(INOUT) :: &
329-
QGH
327+
QSFC,QGH
330328
331329
REAL, DIMENSION( ims:ime ) , &
332330
INTENT(OUT) :: U10,V10, &
333-
TH2,T2,Q2,QSFC,LH
331+
TH2,T2,Q2,LH
334332
335-
336333
REAL, INTENT(IN ) :: CP,G,ROVCP,R,XLV
337334
338335
REAL, DIMENSION( its:ite ), INTENT(IN ) :: DX

0 commit comments

Comments
 (0)