<p><b>laura@ucar.edu</b> 2011-04-05 12:05:26 -0600 (Tue, 05 Apr 2011)</p><p>changed intent from IN to INPUT to avoid overwriting arrays on the IBM with xlf<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_sf_noahdrv.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_sf_noahdrv.F 2011-04-05 18:03:27 UTC (rev 774)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_sf_noahdrv.F 2011-04-05 18:05:26 UTC (rev 775)
@@ -261,7 +261,7 @@
TSLB ! TSLB STEMP
REAL, DIMENSION( ims:ime , 1:num_soil_layers, jms:jme ), &
- INTENT(OUT) :: SMCREL
+ INTENT(INOUT) :: SMCREL
REAL, DIMENSION( ims:ime, jms:jme ) , &
INTENT(INOUT) :: TSK, & !was TGB (temperature)
@@ -291,10 +291,10 @@
ALBEDO, &
ZNT
REAL, DIMENSION( ims:ime, jms:jme ) , &
- INTENT(OUT) :: NOAHRES
+ INTENT(INOUT) :: NOAHRES
REAL, DIMENSION( ims:ime, jms:jme ) , &
- INTENT(OUT) :: CHKLOWQ
+ INTENT(INOUT) :: CHKLOWQ
REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: LAI
REAL,DIMENSION(IMS:IME,JMS:JME),INTENT(IN) :: QZ0
@@ -446,21 +446,21 @@
REAL, OPTIONAL, DIMENSION( ims:ime, 1:num_road_layers, jms:jme ), INTENT(INOUT) :: TGL_URB3D
! output variable lsm --> surface_driver
- REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: PSIM_URB2D
- REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: PSIH_URB2D
- REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: GZ1OZ0_URB2D
- REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: U10_URB2D
- REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: V10_URB2D
- REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: TH2_URB2D
- REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: Q2_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: PSIM_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: PSIH_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: GZ1OZ0_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: U10_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: V10_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: TH2_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: Q2_URB2D
!
- REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: AKMS_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: AKMS_URB2D
!
!ldf (01-18-2011):
-! REAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: UST_URB2D
+! REAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: UST_URB2D
! REAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: FRC_URB2D
! INTEGER, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: UTYPE_URB2D
- REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(OUT) :: UST_URB2D
+ REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(INOUT) :: UST_URB2D
REAL, OPTIONAL, DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: FRC_URB2D
INTEGER, OPTIONAL,DIMENSION( ims:ime, jms:jme ), INTENT(IN) :: UTYPE_URB2D
!end ldf.
Modified: branches/atmos_physics/src/core_physics/physics_wrf/module_sf_noahlsm.F
===================================================================
--- branches/atmos_physics/src/core_physics/physics_wrf/module_sf_noahlsm.F 2011-04-05 18:03:27 UTC (rev 774)
+++ branches/atmos_physics/src/core_physics/physics_wrf/module_sf_noahlsm.F 2011-04-05 18:05:26 UTC (rev 775)
@@ -288,7 +288,7 @@
! ----------------------------------------------------------------------
INTEGER,INTENT(IN) :: ICE,NSOIL,SLOPETYP,SOILTYP,VEGTYP
INTEGER, INTENT(IN) :: ISURBAN
- INTEGER,INTENT(OUT):: NROOT
+ INTEGER,INTENT(INOUT):: NROOT
INTEGER KZ, K, iout
! ----------------------------------------------------------------------
@@ -301,20 +301,20 @@
Q2,Q2SAT,SFCPRS,SFCSPD,SFCTMP, SNOALB, &
SOLDN,SOLNET,TBOT,TH2,ZLVL, &
FFROZP
- REAL, INTENT(OUT) :: EMBRD
- REAL, INTENT(OUT) :: ALBEDO
+ REAL, INTENT(INOUT) :: EMBRD
+ REAL, INTENT(INOUT) :: ALBEDO
REAL, INTENT(INOUT):: COSZ, SOLARDIRECT,CH,CM, &
CMC,SNEQV,SNCOVR,SNOWH,T1,XLAI,SHDFAC,Z0BRD, &
EMISSI, ALB
REAL, INTENT(INOUT):: SNOTIME1
REAL, INTENT(INOUT):: RIBB
REAL, DIMENSION(1:NSOIL), INTENT(IN) :: SLDPTH
- REAL, DIMENSION(1:NSOIL), INTENT(OUT):: ET
- REAL, DIMENSION(1:NSOIL), INTENT(OUT):: SMAV
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT):: ET
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT):: SMAV
REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: SH2O, SMC, STC
REAL,DIMENSION(1:NSOIL):: RTDIS, ZSOIL
- REAL,INTENT(OUT) :: ETA_KINEMATIC,BETA,DEW,DRIP,EC,EDIR,ESNOW,ETA, &
+ REAL,INTENT(INOUT) :: ETA_KINEMATIC,BETA,DEW,DRIP,EC,EDIR,ESNOW,ETA, &
ETP,FLX1,FLX2,FLX3,SHEAT,PC,RUNOFF1,RUNOFF2, &
RUNOFF3,RC,RSMIN,RCQ,RCS,RCSOIL,RCT,SSOIL, &
SMCDRY,SMCMAX,SMCREF,SMCWLT,SNOMLT, SOILM, &
@@ -932,7 +932,7 @@
REAL, INTENT(IN) :: DT
LOGICAL, INTENT(IN) :: SNOWNG
REAL, INTENT(INOUT):: SNOTIME1
- REAL, INTENT(OUT) :: ALBEDO, EMISSI
+ REAL, INTENT(INOUT) :: ALBEDO, EMISSI
REAL :: SNOALB2
REAL :: TM,SNOALB1
REAL, INTENT(IN) :: LVCOEF
@@ -1073,7 +1073,7 @@
SFCPRS,SFCTMP,SMCREF,SMCWLT, SOLAR,TOPT,XLAI, &
EMISSI
REAL,DIMENSION(1:NSOIL), INTENT(IN) :: SMC,ZSOIL
- REAL, INTENT(OUT):: PC,RC,RCQ,RCS,RCSOIL,RCT
+ REAL, INTENT(INOUT):: PC,RC,RCQ,RCS,RCSOIL,RCT
REAL :: DELTA,FF,GX,P,RR
REAL, DIMENSION(1:NSOIL) :: PART
REAL, PARAMETER :: SLV = 2.501000E6
@@ -1174,7 +1174,7 @@
! ----------------------------------------------------------------------
IMPLICIT NONE
REAL, INTENT(IN) :: DSNOW
- REAL, INTENT(OUT):: SNCOND
+ REAL, INTENT(INOUT):: SNCOND
REAL :: C
REAL, PARAMETER :: UNIT = 0.11631
@@ -1218,7 +1218,7 @@
IMPLICIT NONE
REAL, INTENT(IN) :: ETP1,SMC,BEXP,DKSAT,DWSAT,FXEXP, &
SHDFAC,SMCDRY,SMCMAX,ZSOIL,SMCREF,SMCWLT
- REAL, INTENT(OUT):: EDIR
+ REAL, INTENT(INOUT):: EDIR
REAL :: FX, SRATIO
@@ -1270,10 +1270,10 @@
REAL, INTENT(IN) :: BEXP, CFACTR,CMC,CMCMAX,DKSAT, &
DT,DWSAT,ETP1,FXEXP,PC,Q2,SFCTMP, &
SHDFAC,SMCDRY,SMCMAX,SMCREF,SMCWLT
- REAL, INTENT(OUT) :: EC,EDIR,ETA1,ETT
+ REAL, INTENT(INOUT) :: EC,EDIR,ETA1,ETT
REAL :: CMC2MS
REAL,DIMENSION(1:NSOIL), INTENT(IN) :: RTDIS, SMC, SH2O, ZSOIL
- REAL,DIMENSION(1:NSOIL), INTENT(OUT) :: ET
+ REAL,DIMENSION(1:NSOIL), INTENT(INOUT) :: ET
! ----------------------------------------------------------------------
! EXECUTABLE CODE BEGINS HERE IF THE POTENTIAL EVAPOTRANSPIRATION IS
@@ -1336,7 +1336,7 @@
SUBROUTINE FAC2MIT(SMCMAX,FLIMIT)
IMPLICIT NONE
REAL, INTENT(IN) :: SMCMAX
- REAL, INTENT(OUT) :: FLIMIT
+ REAL, INTENT(INOUT) :: FLIMIT
FLIMIT = 0.90
@@ -1389,7 +1389,7 @@
! ----------------------------------------------------------------------
IMPLICIT NONE
REAL, INTENT(IN) :: BEXP,PSIS,SH2O,SMC,SMCMAX,TKELV
- REAL, INTENT(OUT) :: FREE
+ REAL, INTENT(INOUT) :: FREE
REAL :: BX,DENOM,DF,DSWL,FK,SWL,SWLK
INTEGER :: NLOG,KCOUNT
! PARAMETER(CK = 0.0)
@@ -1518,8 +1518,8 @@
SMCMAX ,TBOT,YY,ZZ1, ZBOT
REAL, DIMENSION(1:NSOIL), INTENT(IN) :: SMC,STC,ZSOIL
REAL, DIMENSION(1:NSOIL), INTENT(INOUT):: SH2O
- REAL, DIMENSION(1:NSOIL), INTENT(OUT) :: RHSTS
- REAL, DIMENSION(1:NSOIL), INTENT(OUT) :: AI, BI,CI
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: RHSTS
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: AI, BI,CI
REAL :: DDZ, DDZ2, DENOM, DF1N, DF1K, DTSDZ, &
DTSDZ2,HCPCT,QTOT,SSOIL,SICE,TAVG,TBK, &
TBK1,TSNSR,TSURF,CSOIL_LOC
@@ -1767,9 +1767,9 @@
INTEGER :: K
REAL, INTENT(IN) :: DF1,YY,ZZ1
- REAL, DIMENSION(1:NSOIL), INTENT(OUT):: AI, BI,CI
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT):: AI, BI,CI
REAL, DIMENSION(1:NSOIL), INTENT(IN) :: STC, ZSOIL
- REAL, DIMENSION(1:NSOIL), INTENT(OUT):: RHSTS
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT):: RHSTS
REAL, INTENT(IN) :: TBOT
INTEGER, INTENT(IN) :: ICE
REAL :: DDZ,DDZ2,DENOM,DTSDZ,DTSDZ2,SSOIL, &
@@ -1925,7 +1925,7 @@
INTEGER :: K
REAL, DIMENSION(1:NSOIL), INTENT(IN):: STCIN
- REAL, DIMENSION(1:NSOIL), INTENT(OUT):: STCOUT
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT):: STCOUT
REAL, DIMENSION(1:NSOIL), INTENT(INOUT):: RHSTS
REAL, DIMENSION(1:NSOIL), INTENT(INOUT):: AI,BI,CI
REAL, DIMENSION(1:NSOIL) :: RHSTSin
@@ -1994,10 +1994,10 @@
SHDFAC,SLOPE,SMCDRY,SMCMAX,SMCREF,SMCWLT, &
T24,TBOT,TH2,ZBOT,EMISSI
REAL, INTENT(INOUT) :: CMC,BETA,T1
- REAL, INTENT(OUT) :: DEW,DRIP,EC,EDIR,ETA,ETT,FLX1,FLX3, &
+ REAL, INTENT(INOUT) :: DEW,DRIP,EC,EDIR,ETA,ETT,FLX1,FLX3, &
RUNOFF1,RUNOFF2,RUNOFF3,SSOIL
REAL, DIMENSION(1:NSOIL),INTENT(IN) :: RTDIS,ZSOIL
- REAL, DIMENSION(1:NSOIL),INTENT(OUT) :: ET
+ REAL, DIMENSION(1:NSOIL),INTENT(INOUT) :: ET
REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: SMC,SH2O,STC
REAL, DIMENSION(1:NSOIL) :: ET1
REAL :: EC1,EDIR1,ETT1,DF1,ETA1,ETP1,PRCP1,YY, &
@@ -2163,7 +2163,7 @@
INTEGER, INTENT(IN) :: ICE
! kmh 09/03/2006
!
- REAL, INTENT(OUT) :: EPSCA,ETP,FLX2,RCH,RR,T24
+ REAL, INTENT(INOUT) :: EPSCA,ETP,FLX2,RCH,RR,T24
REAL :: A, DELTA, FNET,RAD,RHO,EMISSI,ELCP1,LVS
REAL, PARAMETER :: ELCP = 2.4888E+3, LSUBC = 2.501000E+6,CP = 1004.6
@@ -2323,8 +2323,8 @@
! Veg parameters
INTEGER, INTENT(IN) :: VEGTYP
- INTEGER, INTENT(OUT) :: NROOT
- REAL, INTENT(OUT) :: HS,RSMIN,RGL,SHDFAC,SNUP, &
+ INTEGER, INTENT(INOUT) :: NROOT
+ REAL, INTENT(INOUT) :: HS,RSMIN,RGL,SHDFAC,SNUP, &
CMCMAX,RSMAX,TOPT, &
EMISSMIN, EMISSMAX, &
LAIMIN, LAIMAX, &
@@ -2332,18 +2332,18 @@
ALBEDOMIN, ALBEDOMAX
! Soil parameters
INTEGER, INTENT(IN) :: SOILTYP
- REAL, INTENT(OUT) :: BEXP,DKSAT,DWSAT,F1,QUARTZ,SMCDRY, &
+ REAL, INTENT(INOUT) :: BEXP,DKSAT,DWSAT,F1,QUARTZ,SMCDRY, &
SMCMAX,SMCREF,SMCWLT,PSISAT
! General parameters
INTEGER, INTENT(IN) :: SLOPETYP,NSOIL
INTEGER :: I
- REAL, INTENT(OUT) :: SLOPE,CZIL,SBETA,FXEXP, &
+ REAL, INTENT(INOUT) :: SLOPE,CZIL,SBETA,FXEXP, &
CSOIL,SALP,FRZX,KDT,CFACTR, &
ZBOT,REFKDT,PTU
- REAL, INTENT(OUT) :: LVCOEF
+ REAL, INTENT(INOUT) :: LVCOEF
REAL,DIMENSION(1:NSOIL),INTENT(IN) :: SLDPTH,ZSOIL
- REAL,DIMENSION(1:NSOIL),INTENT(OUT):: RTDIS
+ REAL,DIMENSION(1:NSOIL),INTENT(INOUT):: RTDIS
REAL :: FRZFACT,FRZK,REFDK
! SAVE
@@ -2479,6 +2479,7 @@
REAL, DIMENSION(1:NSOIL), INTENT(IN):: A, B, D
REAL, DIMENSION(1:NSOIL),INTENT(INOUT):: C,P,DELTA
+
! ----------------------------------------------------------------------
! INITIALIZE EQN COEF C FOR THE LOWEST SOIL LAYER
! ----------------------------------------------------------------------
@@ -2533,7 +2534,7 @@
REAL, INTENT(IN) :: BEXP,CSOIL,DF1,DT,F1,PSISAT,QUARTZ, &
SMCMAX, SMCWLT, TBOT,YY, ZBOT,ZZ1
REAL, INTENT(INOUT) :: T1
- REAL, INTENT(OUT) :: SSOIL
+ REAL, INTENT(INOUT) :: SSOIL
REAL, DIMENSION(1:NSOIL), INTENT(IN) :: SMC,ZSOIL
REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: SH2O
REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: STC
@@ -2608,7 +2609,7 @@
REAL, INTENT(IN) :: BEXP, CMCMAX, DKSAT,DWSAT, DT, EC, EDIR, &
KDT, PRCP1, SHDFAC, SLOPE, SMCMAX, SMCWLT
- REAL, INTENT(OUT) :: DRIP, RUNOFF1, RUNOFF2, RUNOFF3
+ REAL, INTENT(INOUT) :: DRIP, RUNOFF1, RUNOFF2, RUNOFF3
REAL, INTENT(INOUT) :: CMC
REAL, DIMENSION(1:NSOIL), INTENT(IN) :: ET,ZSOIL
REAL, DIMENSION(1:NSOIL), INTENT(INOUT):: SMC, SH2O
@@ -2729,7 +2730,7 @@
IMPLICIT NONE
REAL, INTENT(IN) :: SNEQV,SNUP,SALP,SNOWH
- REAL, INTENT(OUT) :: SNCOVR
+ REAL, INTENT(INOUT) :: SNCOVR
REAL :: RSNOW, Z0N
! ----------------------------------------------------------------------
@@ -2883,11 +2884,11 @@
TBOT,TH2,ZBOT,EMISSI,SOLDN
REAL, INTENT(INOUT) :: CMC, BETA, ESD,FLX2,PRCPF,SNOWH,SNCOVR, &
SNDENS, T1, RIBB, ETP
- REAL, INTENT(OUT) :: DEW,DRIP,EC,EDIR, ETNS, ESNOW,ETT, &
+ REAL, INTENT(INOUT) :: DEW,DRIP,EC,EDIR, ETNS, ESNOW,ETT, &
FLX1,FLX3, RUNOFF1,RUNOFF2,RUNOFF3, &
SSOIL,SNOMLT
REAL, DIMENSION(1:NSOIL),INTENT(IN) :: RTDIS,ZSOIL
- REAL, DIMENSION(1:NSOIL),INTENT(OUT) :: ET
+ REAL, DIMENSION(1:NSOIL),INTENT(INOUT) :: ET
REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: SMC,SH2O,STC
REAL, DIMENSION(1:NSOIL) :: ET1
REAL :: DENOM,DSOIL,DTOT,EC1,EDIR1,ESDFLX,ETA, &
@@ -3380,7 +3381,7 @@
! ----------------------------------------------------------------------
IMPLICIT NONE
REAL, INTENT(IN) :: SNCOVR, Z0BRD
- REAL, INTENT(OUT) :: Z0
+ REAL, INTENT(INOUT) :: Z0
REAL, PARAMETER :: Z0S=0.001
REAL, INTENT(IN) :: SNOWH
REAL :: BURIAL
@@ -3469,11 +3470,11 @@
INTEGER :: IALP1, IOHINF, J, JJ, K, KS
REAL, INTENT(IN) :: BEXP, DKSAT, DT, DWSAT, EDIR, FRZX, &
KDT, PCPDRP, SLOPE, SMCMAX, SMCWLT
- REAL, INTENT(OUT) :: RUNOFF1, RUNOFF2
+ REAL, INTENT(INOUT) :: RUNOFF1, RUNOFF2
REAL, DIMENSION(1:NSOIL), INTENT(IN) :: ET, SH2O, SH2OA, SICE, &
ZSOIL
- REAL, DIMENSION(1:NSOIL), INTENT(OUT) :: RHSTT
- REAL, DIMENSION(1:NSOIL), INTENT(OUT) :: AI, BI, CI
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: RHSTT
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: AI, BI, CI
REAL, DIMENSION(1:NSOIL) :: DMAX
REAL :: ACRT, DD, DDT, DDZ, DDZ2, DENOM, &
DENOM2,DICE, DSMDZ, DSMDZ2, DT1, &
@@ -3720,10 +3721,10 @@
INTEGER :: I, K, KK11
REAL, INTENT(IN) :: CMCMAX, DT, SMCMAX
- REAL, INTENT(OUT) :: RUNOFF3
+ REAL, INTENT(INOUT) :: RUNOFF3
REAL, INTENT(INOUT) :: CMC
REAL, DIMENSION(1:NSOIL), INTENT(IN) :: SH2OIN, SICE, ZSOIL
- REAL, DIMENSION(1:NSOIL), INTENT(OUT) :: SH2OOUT
+ REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: SH2OOUT
REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: RHSTT, SMC
REAL, DIMENSION(1:NSOIL), INTENT(INOUT) :: AI, BI, CI
REAL, DIMENSION(1:NSOIL) :: RHSTTin
@@ -3806,7 +3807,7 @@
INTEGER, INTENT(IN) :: NSOIL
INTEGER :: K
REAL, INTENT(IN) :: TB, TU, ZBOT
- REAL, INTENT(OUT) :: TBND1
+ REAL, INTENT(INOUT) :: TBND1
REAL, DIMENSION(1:NSOIL), INTENT(IN) :: ZSOIL
REAL :: ZB, ZUP
REAL, PARAMETER :: T0 = 273.15
@@ -3851,7 +3852,7 @@
! ----------------------------------------------------------------------
IMPLICIT NONE
REAL, INTENT(IN) :: QZ, SMC, SMCMAX, SH2O
- REAL, INTENT(OUT) :: DF
+ REAL, INTENT(INOUT) :: DF
REAL :: AKE, GAMMD, THKDRY, THKICE, THKO, &
THKQTZ,THKSAT,THKS,THKW,SATRATIO,XU, &
XUNFROZ
</font>
</pre>