From e32e95f7d08b54fcaa91fdd888f9db7eeed301fe Mon Sep 17 00:00:00 2001 From: biljanaorescanin Date: Tue, 21 Dec 2021 16:29:56 -0500 Subject: [PATCH] fixing alignment --- .../GEOS_CatchCNCLM40GridComp.F90 | 22 +- .../GEOS_CatchCNCLM45GridComp.F90 | 248 +++++++++--------- 2 files changed, 135 insertions(+), 135 deletions(-) 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 bda610e1a..1c3b11975 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 @@ -5547,17 +5547,17 @@ subroutine Driver ( RC ) call MAPL_GetPointer(EXPORT,CNLAI41, 'CNLAI41' , RC=STATUS); VERIFY_(STATUS) call MAPL_GetPointer(EXPORT,CNLAI42, 'CNLAI42' , RC=STATUS); VERIFY_(STATUS) call MAPL_GetPointer(EXPORT,CNLAI43, 'CNLAI43' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU001,'RMELTDU001', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU002,'RMELTDU002', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU003,'RMELTDU003', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU004,'RMELTDU004', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU005,'RMELTDU005', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTBC001,'RMELTBC001', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTBC002,'RMELTBC002', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTOC001,'RMELTOC001', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTOC002,'RMELTOC002', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WATERTABLED,'WATERTABLED',RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,FSWCHANGE, 'FSWCHANGE', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU001,'RMELTDU001', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU002,'RMELTDU002', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU003,'RMELTDU003', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU004,'RMELTDU004', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU005,'RMELTDU005', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTBC001,'RMELTBC001', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTBC002,'RMELTBC002', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTOC001,'RMELTOC001', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTOC002,'RMELTOC002', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WATERTABLED ,'WATERTABLED', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,FSWCHANGE , 'FSWCHANGE', RC=STATUS); VERIFY_(STATUS) IF (RUN_IRRIG /= 0) call MAPL_GetPointer(EXPORT,IRRIGRATE ,'IRRIGRATE' , RC=STATUS); VERIFY_(STATUS) NTILES = size(PS) 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 5c2b86c41..231244529 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 @@ -5410,116 +5410,116 @@ subroutine Driver ( RC ) ! EXPORT POINTERS ! ----------------------------------------------------- - call MAPL_GetPointer(EXPORT,EVAPOUT,'EVAPOUT',ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SUBLIM,'SUBLIM',ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SHOUT, 'SHOUT' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RUNOFF, 'RUNOFF' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,EVPINT, 'EVPINT' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,EVPSOI, 'EVPSOI' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,EVPVEG, 'EVPVEG' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,EVPICE, 'EVPICE' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WAT10CM,'WAT10CM',ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WATSOI, 'WATSOI' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,ICESOI, 'ICESOI' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,EVPSNO, 'EVPSNO' ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,BFLOW, 'BASEFLOW',ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RUNSURF,'RUNSURF',ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SMELT, 'SMELT' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,HLWUP, 'HLWUP' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SWNDSRF,'SWNDSRF',ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,LWNDSRF,'LWNDSRF',ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,HLATN, 'HLATN' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,QINFIL, 'QINFIL' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,AR1, 'AR1' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,AR2, 'AR2' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RZEQ, 'RZEQ' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,GHFLX, 'GHFLX' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TPSURF, 'TPSURF' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TPSN1, 'TPSNOW' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TPUST, 'TPUNST' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TPSAT, 'TPSAT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TPWLT, 'TPWLT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,ASNOW, 'ASNOW' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SHSNOW, 'SHSNOW' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,AVETSNOW,'AVETSNOW', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,FRSAT, 'FRSAT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,FRUST, 'FRUST' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,FRWLT, 'FRWLT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TP1, 'TP1' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TP2, 'TP2' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TP3, 'TP3' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TP4, 'TP4' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TP5, 'TP5' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TP6, 'TP6' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,EMIS, 'EMIS' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,ALBVR, 'ALBVR' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,ALBVF, 'ALBVF' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,ALBNR, 'ALBNR' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,ALBNF, 'ALBNF' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,DELTS, 'DELTS' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,DELQS, 'DELQS' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TST , 'TST' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,QST , 'QST' ,ALLOC=.true.,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,LST , 'LST' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WET1 , 'WET1' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WET2 , 'WET2' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WET3 , 'WET3' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WCSF , 'WCSF' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WCRZ , 'WCRZ' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WCPR , 'WCPR' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,ACCUM, 'ACCUM' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SNOMAS,'SNOWMASS', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SNOWDP, 'SNOWDP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,EVLAND, 'EVLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,PRLAND, 'PRLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SNOLAND, 'SNOLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,DRPARLAND, 'DRPARLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,DFPARLAND, 'DFPARLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,LHSNOW, 'LHSNOW' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SWNETSNOW1, 'SWNETSNOW' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,LWUPSNOW, 'LWUPSNOW' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,LWDNSNOW, 'LWDNSNOW' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TCSORIG, 'TCSORIG' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TPSN1IN, 'TPSN1IN' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TPSN1OUT, 'TPSN1OUT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,LHLAND, 'LHLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SHLAND, 'SHLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SWLAND, 'SWLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SWDOWNLAND, 'SWDOWNLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,LWLAND, 'LWLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,GHLAND, 'GHLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,GHSNOW, 'GHSNOW' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,GHTSKIN,'GHTSKIN', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SMLAND, 'SMLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TWLAND, 'TWLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TELAND, 'TELAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,TSLAND, 'TSLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,DWLAND, 'DWLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,DHLAND, 'DHLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SPLAND, 'SPLAND' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SPWATR, 'SPWATR' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SPSNOW, 'SPSNOW' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNLAI, 'CNLAI' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNTLAI, 'CNTLAI' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNSAI, 'CNSAI' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNTOTC, 'CNTOTC' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNVEGC, 'CNVEGC' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNFROOTC,'CNFROOTC', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNNPP, 'CNNPP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNGPP, 'CNGPP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNSR, 'CNSR' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNNEE, 'CNNEE' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNXSMR, 'CNXSMR' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNADD, 'CNADD' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNLOSS, 'CNLOSS' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNBURN, 'CNBURN' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,PARABS, 'PARABS' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,PARINC, 'PARINC' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SCSAT, 'SCSAT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SCUNS, 'SCUNS' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,BTRANT, 'BTRANT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,SIF, 'SIF' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNCO2, 'CNCO2' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,EVAPOUT , 'EVAPOUT',ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SUBLIM , 'SUBLIM' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SHOUT , 'SHOUT' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RUNOFF , 'RUNOFF' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,EVPINT , 'EVPINT' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,EVPSOI , 'EVPSOI' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,EVPVEG , 'EVPVEG' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,EVPICE , 'EVPICE' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WAT10CM , 'WAT10CM',ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WATSOI , 'WATSOI' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,ICESOI , 'ICESOI' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,EVPSNO , 'EVPSNO' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,BFLOW , 'BASEFLOW',ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RUNSURF , 'RUNSURF',ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SMELT , 'SMELT' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,HLWUP , 'HLWUP' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SWNDSRF , 'SWNDSRF',ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,LWNDSRF , 'LWNDSRF',ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,HLATN , 'HLATN' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,QINFIL , 'QINFIL' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,AR1 , 'AR1' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,AR2 , 'AR2' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RZEQ , 'RZEQ' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,GHFLX , 'GHFLX' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TPSURF , 'TPSURF' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TPSN1 , 'TPSNOW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TPUST , 'TPUNST' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TPSAT , 'TPSAT' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TPWLT , 'TPWLT' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,ASNOW , 'ASNOW' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SHSNOW , 'SHSNOW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,AVETSNOW , 'AVETSNOW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,FRSAT , 'FRSAT' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,FRUST , 'FRUST' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,FRWLT , 'FRWLT' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TP1 , 'TP1' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TP2 , 'TP2' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TP3 , 'TP3' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TP4 , 'TP4' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TP5 , 'TP5' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TP6 , 'TP6' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,EMIS , 'EMIS' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,ALBVR , 'ALBVR' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,ALBVF , 'ALBVF' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,ALBNR , 'ALBNR' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,ALBNF , 'ALBNF' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,DELTS , 'DELTS' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,DELQS , 'DELQS' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TST , 'TST' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,QST , 'QST' ,ALLOC=.true., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,LST , 'LST' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WET1 , 'WET1' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WET2 , 'WET2' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WET3 , 'WET3' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WCSF , 'WCSF' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WCRZ , 'WCRZ' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WCPR , 'WCPR' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,ACCUM , 'ACCUM' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SNOMAS , 'SNOWMASS' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SNOWDP , 'SNOWDP' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,EVLAND , 'EVLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,PRLAND , 'PRLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SNOLAND , 'SNOLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,DRPARLAND , 'DRPARLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,DFPARLAND , 'DFPARLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,LHSNOW , 'LHSNOW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SWNETSNOW1 , 'SWNETSNOW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,LWUPSNOW , 'LWUPSNOW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,LWDNSNOW , 'LWDNSNOW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TCSORIG , 'TCSORIG' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TPSN1IN , 'TPSN1IN' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TPSN1OUT , 'TPSN1OUT' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,LHLAND , 'LHLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SHLAND , 'SHLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SWLAND , 'SWLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SWDOWNLAND , 'SWDOWNLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,LWLAND , 'LWLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,GHLAND , 'GHLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,GHSNOW , 'GHSNOW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,GHTSKIN , 'GHTSKIN' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SMLAND , 'SMLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TWLAND , 'TWLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TELAND , 'TELAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,TSLAND , 'TSLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,DWLAND , 'DWLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,DHLAND , 'DHLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SPLAND , 'SPLAND' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SPWATR , 'SPWATR' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SPSNOW , 'SPSNOW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNLAI , 'CNLAI' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNTLAI , 'CNTLAI' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNSAI , 'CNSAI' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNTOTC , 'CNTOTC' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNVEGC , 'CNVEGC' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNFROOTC , 'CNFROOTC' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNNPP , 'CNNPP' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNGPP , 'CNGPP' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNSR , 'CNSR' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNNEE , 'CNNEE' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNXSMR , 'CNXSMR' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNADD , 'CNADD' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNLOSS , 'CNLOSS' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNBURN , 'CNBURN' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,PARABS , 'PARABS' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,PARINC , 'PARINC' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SCSAT , 'SCSAT' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SCUNS , 'SCUNS' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,BTRANT , 'BTRANT' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,SIF , 'SIF' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNCO2 , 'CNCO2' , RC=STATUS); VERIFY_(STATUS) call MAPL_GetPointer(EXPORT,CNFIRE_CNT , 'CNFIRE_CNT' , RC=STATUS); VERIFY_(STATUS) call MAPL_GetPointer(EXPORT,CNSOM_CLOSS , 'CNSOM_CLOSS' , RC=STATUS); VERIFY_(STATUS) call MAPL_GetPointer(EXPORT,CNNDEPLOY , 'CNNDEPLOY' , RC=STATUS); VERIFY_(STATUS) @@ -5547,20 +5547,20 @@ subroutine Driver ( RC ) call MAPL_GetPointer(EXPORT,CNTOTLITC , 'CNTOTLITC' , RC=STATUS); VERIFY_(STATUS) call MAPL_GetPointer(EXPORT,CNCWDC , 'CNCWDC' , RC=STATUS); VERIFY_(STATUS) call MAPL_GetPointer(EXPORT,CNROOT , 'CNROOT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,CNFSEL, 'CNFSEL' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU001,'RMELTDU001', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU002,'RMELTDU002', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU003,'RMELTDU003', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU004,'RMELTDU004', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTDU005,'RMELTDU005', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTBC001,'RMELTBC001', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTBC002,'RMELTBC002', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTOC001,'RMELTOC001', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RMELTOC002,'RMELTOC002', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,WATERTABLED,'WATERTABLED' RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,FSWCHANGE, 'FSWCHANGE', RC=STATUS); VERIFY_(STATUS) - - IF (RUN_IRRIG /= 0) call MAPL_GetPointer(EXPORT,IRRIGRATE ,'IRRIGRATE' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,CNFSEL , 'CNFSEL' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU001 ,'RMELTDU001' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU002 ,'RMELTDU002' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU003 ,'RMELTDU003' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU004 ,'RMELTDU004' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTDU005 ,'RMELTDU005' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTBC001 ,'RMELTBC001' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTBC002 ,'RMELTBC002' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTOC001 ,'RMELTOC001' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,RMELTOC002 ,'RMELTOC002' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,WATERTABLED ,'WATERTABLED' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT,FSWCHANGE ,'FSWCHANGE' , RC=STATUS); VERIFY_(STATUS) + + IF (RUN_IRRIG /= 0) call MAPL_GetPointer(EXPORT,IRRIGRATE ,'IRRIGRATE' , RC=STATUS); VERIFY_(STATUS) NTILES = size(PS)