diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOS_SurfaceGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOS_SurfaceGridComp.F90 index ec07b9976..06ba4e179 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOS_SurfaceGridComp.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOS_SurfaceGridComp.F90 @@ -589,7 +589,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'LWDNSRF', & - LONG_NAME = 'surface_downwelling_longwave_flux', & + LONG_NAME = 'surface_absorbed_longwave_flux', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & @@ -598,7 +598,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'ALW', & - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', & + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & @@ -607,7 +607,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'BLW', & - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', & + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', & UNITS = 'W m-2 K-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & @@ -1761,7 +1761,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LWUPSNOW', & - LONG_NAME = 'Net_longwave_snow', & + LONG_NAME = 'surface_emitted_longwave_flux_snow', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & @@ -1770,7 +1770,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LWDNSNOW', & - LONG_NAME = 'Net_longwave_snow', & + LONG_NAME = 'surface_absorbed_longwave_flux_snow', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & @@ -1949,7 +1949,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_outgoing_longwave_flux',& + LONG_NAME = 'surface_emitted_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'HLWUP' ,& DIMS = MAPL_DimsHorzOnly ,& diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSlake_GridComp/GEOS_LakeGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSlake_GridComp/GEOS_LakeGridComp.F90 index f0e7d0265..564beefe7 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSlake_GridComp/GEOS_LakeGridComp.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSlake_GridComp/GEOS_LakeGridComp.F90 @@ -210,7 +210,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_outgoing_longwave_flux',& + LONG_NAME = 'surface_emitted_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'HLWUP' ,& DIMS = MAPL_DimsTileOnly ,& @@ -618,7 +618,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'ALW', & - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', & + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', & UNITS = 'W m-2', & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VLocationNone, & @@ -627,7 +627,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'BLW', & - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux', & + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux', & UNITS = 'W m-2 K-1', & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VLocationNone, & @@ -690,7 +690,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'LWDNSRF', & - LONG_NAME = 'surface_downwelling_longwave_flux', & + LONG_NAME = 'surface_absorbed_longwave_flux', & UNITS = 'W m-2', & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VLocationNone, & diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOS_CatchCNGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOS_CatchCNGridComp.F90 index 6708b0e21..764e09850 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOS_CatchCNGridComp.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOS_CatchCNGridComp.F90 @@ -278,7 +278,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'surface_downwelling_longwave_flux',& + LONG_NAME = 'surface_absorbed_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'LWDNSRF' ,& DIMS = MAPL_DimsTileOnly ,& @@ -287,7 +287,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'ALW' ,& DIMS = MAPL_DimsTileOnly ,& @@ -296,7 +296,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux',& UNITS = 'W_m-2 K-1' ,& SHORT_NAME = 'BLW' ,& DIMS = MAPL_DimsTileOnly ,& diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM40_GridComp/GEOS_CatchCNCLM40GridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM40_GridComp/GEOS_CatchCNCLM40GridComp.F90 index cb542eb4d..fc3a507dd 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM40_GridComp/GEOS_CatchCNCLM40GridComp.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM40_GridComp/GEOS_CatchCNCLM40GridComp.F90 @@ -477,7 +477,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'surface_downwelling_longwave_flux',& + LONG_NAME = 'surface_absorbed_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'LWDNSRF' ,& DIMS = MAPL_DimsTileOnly ,& @@ -486,7 +486,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'ALW' ,& DIMS = MAPL_DimsTileOnly ,& @@ -495,7 +495,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux',& UNITS = 'W_m-2 K-1' ,& SHORT_NAME = 'BLW' ,& DIMS = MAPL_DimsTileOnly ,& @@ -2346,7 +2346,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_outgoing_longwave_flux',& + LONG_NAME = 'surface_emitted_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'HLWUP' ,& DIMS = MAPL_DimsTileOnly ,& @@ -3036,7 +3036,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LWUPSNOW', & - LONG_NAME = 'Net_longwave_snow', & + LONG_NAME = 'surface_emitted_longwave_flux_snow', & UNITS = 'W m-2', & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VLocationNone, & @@ -3045,7 +3045,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LWDNSNOW', & - LONG_NAME = 'Net_longwave_snow', & + LONG_NAME = 'surface_absorbed_longwave_flux_snow', & UNITS = 'W m-2', & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VLocationNone, & @@ -7209,7 +7209,7 @@ subroutine Driver ( RC ) RA(:,FSAT), RA(:,FTRN), RA(:,FWLT), RA(:,FSNW) ,& - ZTH, SWNETFREE, SWNETSNOW, LWDNSRF ,& + ZTH, SWNETFREE, SWNETSNOW, LWDNSRF ,& ! LWDNSRF = *absorbed* longwave only (excl reflected) PS*.01 ,& @@ -7239,7 +7239,7 @@ subroutine Driver ( RC ) BFLOW ,& RUNSURF ,& SMELT ,& - HLWUP ,& + HLWUP ,& ! *emitted* longwave only (excl reflected) SWNDSRF ,& HLATN ,& QINFIL ,& diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM45_GridComp/GEOS_CatchCNCLM45GridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM45_GridComp/GEOS_CatchCNCLM45GridComp.F90 index 07c680823..43bbd9314 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM45_GridComp/GEOS_CatchCNCLM45GridComp.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOScatchCNCLM45_GridComp/GEOS_CatchCNCLM45GridComp.F90 @@ -472,7 +472,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'surface_downwelling_longwave_flux',& + LONG_NAME = 'surface_absorbed_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'LWDNSRF' ,& DIMS = MAPL_DimsTileOnly ,& @@ -481,7 +481,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'ALW' ,& DIMS = MAPL_DimsTileOnly ,& @@ -490,7 +490,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux',& UNITS = 'W_m-2 K-1' ,& SHORT_NAME = 'BLW' ,& DIMS = MAPL_DimsTileOnly ,& @@ -2273,7 +2273,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_outgoing_longwave_flux',& + LONG_NAME = 'surface_emitted_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'HLWUP' ,& DIMS = MAPL_DimsTileOnly ,& @@ -2963,7 +2963,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LWUPSNOW', & - LONG_NAME = 'Net_longwave_snow', & + LONG_NAME = 'surface_emitted_longwave_flux_snow', & UNITS = 'W m-2', & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VLocationNone, & @@ -2972,7 +2972,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LWDNSNOW', & - LONG_NAME = 'Net_longwave_snow', & + LONG_NAME = 'surface_absorbed_longwave_flux_snow', & UNITS = 'W m-2', & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VLocationNone, & @@ -7482,7 +7482,7 @@ subroutine Driver ( RC ) RA(:,FSAT), RA(:,FTRN), RA(:,FWLT), RA(:,FSNW) ,& - ZTH, SWNETFREE, SWNETSNOW, LWDNSRF ,& + ZTH, SWNETFREE, SWNETSNOW, LWDNSRF ,& ! LWDNSRF = *absorbed* longwave only (excl reflected) PS*.01 ,& @@ -7512,7 +7512,7 @@ subroutine Driver ( RC ) BFLOW ,& RUNSURF ,& SMELT ,& - HLWUP ,& + HLWUP ,& ! *emitted* longwave only (excl reflected) SWNDSRF ,& HLATN ,& QINFIL ,& diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/Shared/catchmentCN.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/Shared/catchmentCN.F90 index fc7ac11ba..c82dc50a8 100755 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/Shared/catchmentCN.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/Shared/catchmentCN.F90 @@ -148,7 +148,7 @@ SUBROUTINE CATCHCN ( & ETURB4, DEDQA4, DEDTC4, HSTURB4,DHSDQA4, DHSDTC4, & ETURBS, DEDQAS, DEDTCS, HSTURBS,DHSDQAS, DHSDTCS, & TM, QM, ra1, ra2, ra4, raS, SUNANG, & - SWNETF,SWNETS, HLWDWN, PSUR, ZLAI, GREEN, & + SWNETF,SWNETS, HLWDWN, PSUR, ZLAI, GREEN, & ! HLWDWN = *absorbed* longwave only (excl reflected) SQSCAT, RSOIL1, RSOIL2, RDC, & QSAT1, DQS1, ALW1, BLW1, QSAT2, DQS2, ALW2, BLW2, & QSAT4, DQS4, ALW4, BLW4, QSATS, DQSS, ALWS, BLWS, & @@ -162,7 +162,7 @@ SUBROUTINE CATCHCN ( & CATDEF, RZEXC, srfexc, GHTCNT, & WESNN, HTSNNN, SNDZN, EVAP, SHFLUX, RUNOFF, & EINT, ESOI, EVEG, ESNO, BFLOW,RUNSRF,SMELT, & - HLWUP,SWLAND,HLATN,QINFIL,AR1, AR2, RZEQ, & + HLWUP,SWLAND,HLATN,QINFIL,AR1, AR2, RZEQ, & ! HLWUP = *emitted* longwave only (excl reflected) GHFLUX, GHFLUXSNO, GHTSKIN, TPSN1, ASNOW0, & TP1, TP2, TP3, TP4, TP5, TP6, & sfmc, rzmc, prmc, entot, wtot, WCHANGE, ECHANGE, HSNACC, & diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/GEOS_CatchGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/GEOS_CatchGridComp.F90 index 257ac7bc7..9f427ef67 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/GEOS_CatchGridComp.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/GEOS_CatchGridComp.F90 @@ -421,7 +421,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'surface_downwelling_longwave_flux',& + LONG_NAME = 'surface_absorbed_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'LWDNSRF' ,& DIMS = MAPL_DimsTileOnly ,& @@ -430,7 +430,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'ALW' ,& DIMS = MAPL_DimsTileOnly ,& @@ -439,7 +439,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddImportSpec(GC ,& - LONG_NAME = 'linearization_of_surface_upwelling_longwave_flux',& + LONG_NAME = 'linearization_of_surface_emitted_longwave_flux',& UNITS = 'W_m-2 K-1' ,& SHORT_NAME = 'BLW' ,& DIMS = MAPL_DimsTileOnly ,& @@ -1718,7 +1718,7 @@ subroutine SetServices ( GC, RC ) VERIFY_(STATUS) call MAPL_AddExportSpec(GC, & - LONG_NAME = 'surface_outgoing_longwave_flux',& + LONG_NAME = 'surface_emitted_longwave_flux',& UNITS = 'W m-2' ,& SHORT_NAME = 'HLWUP' ,& DIMS = MAPL_DimsTileOnly ,& @@ -2408,7 +2408,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LWUPSNOW', & - LONG_NAME = 'Net_longwave_snow', & + LONG_NAME = 'surface_emitted_longwave_flux_snow', & UNITS = 'W m-2', & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VLocationNone, & @@ -2417,7 +2417,7 @@ subroutine SetServices ( GC, RC ) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LWDNSNOW', & - LONG_NAME = 'Net_longwave_snow', & + LONG_NAME = 'surface_absorbed_longwave_flux_snow', & UNITS = 'W m-2', & DIMS = MAPL_DimsTileOnly, & VLOCATION = MAPL_VLocationNone, & @@ -5452,7 +5452,7 @@ subroutine Driver ( RC ) RA(:,FSAT), RA(:,FTRN), RA(:,FWLT), RA(:,FSNW) ,& - ZTH, DRPAR, DFPAR, SWNETFREE, SWNETSNOW, LWDNSRF ,& + ZTH, DRPAR, DFPAR, SWNETFREE, SWNETSNOW, LWDNSRF ,& ! LWDNSRF = *absorbed* longwave only (excl reflected) PS*.01 ,& @@ -5479,7 +5479,7 @@ subroutine Driver ( RC ) BFLOW ,& RUNSURF ,& SMELT ,& - HLWUP ,& + HLWUP ,& ! *emitted* longwave only (excl reflected) SWNDSRF ,& HLATN ,& QINFIL ,& diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/catchment.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/catchment.F90 index 3c743903f..9bb53dd6f 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/catchment.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatch_GridComp/catchment.F90 @@ -139,7 +139,7 @@ SUBROUTINE CATCHMENT ( & ETURB4, DEDQA4, DEDTC4, HSTURB4,DHSDQA4, DHSDTC4, & ETURBS, DEDQAS, DEDTCS, HSTURBS,DHSDQAS, DHSDTCS, & TM, QM, ra1, ra2, ra4, raS, SUNANG, PARDIR, PARDIF, & - SWNETF,SWNETS, HLWDWN, PSUR, ZLAI, GREEN, Z2, & + SWNETF,SWNETS, HLWDWN, PSUR, ZLAI, GREEN, Z2, & ! HLWDWN = *absorbed* longwave only (excl reflected) SQSCAT, RSOIL1, RSOIL2, RDC, & QSAT1, DQS1, ALW1, BLW1, QSAT2, DQS2, ALW2, BLW2, & QSAT4, DQS4, ALW4, BLW4, QSATS, DQSS, ALWS, BLWS, & @@ -152,7 +152,7 @@ SUBROUTINE CATCHMENT ( & WESNN, HTSNNN, SNDZN, & EVAP, SHFLUX, RUNOFF, & EINT, ESOI, EVEG, ESNO, BFLOW,RUNSRF,SMELT, & - HLWUP,SWLAND,HLATN,QINFIL,AR1, AR2, RZEQ, & + HLWUP,SWLAND,HLATN,QINFIL,AR1, AR2, RZEQ, & ! HLWUP = *emitted* longwave only (excl reflected) GHFLUX, GHFLUXSNO, GHTSKIN, TPSN1, ASNOW0, & TP1, TP2, TP3, TP4, TP5, TP6, & sfmc, rzmc, prmc, entot, wtot, WCHANGE, ECHANGE, HSNACC, &