From d82d65de10aad1ab17543618e962e3c54f76f172 Mon Sep 17 00:00:00 2001 From: Benjamin Auer Date: Thu, 29 Oct 2026 15:33:54 -0400 Subject: [PATCH] Replace RC=STATUS / VERIFY_(STATUS) with _RC macro in Physics and Turbulence --- .../GEOS_PhysicsGridComp.F90 | 1561 ++++++-------- .../GEOS_TurbulenceGridComp.F90 | 1813 ++++++----------- 2 files changed, 1253 insertions(+), 2121 deletions(-) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOS_PhysicsGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOS_PhysicsGridComp.F90 index 67fd246ec..9b462cb28 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOS_PhysicsGridComp.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOS_PhysicsGridComp.F90 @@ -133,17 +133,14 @@ subroutine SetServices ( GC, RC ) ! --------------------------------------- Iam = 'SetServices' - call ESMF_GridCompGet( GC, NAME=COMP_NAME, CONFIG=CF, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_GridCompGet( GC, NAME=COMP_NAME, CONFIG=CF, _RC) Iam = trim(COMP_NAME) // "::" // Iam ! Register services for this component ! ------------------------------------ - call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_INITIALIZE, Initialize, RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_RUN, Run, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_INITIALIZE, Initialize, _RC) + call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_RUN, Run, _RC) ! Create children`s gridded components and invoke their SetServices ! ----------------------------------------------------------------- @@ -152,50 +149,38 @@ subroutine SetServices ( GC, RC ) ! a change to put the fields in the AERO_DP bundle. Otherwise when ! surface reads the import restart AERO_DP will be empty and it will ! not be properly restarted - GWD = MAPL_AddChild(GC, NAME='GWD', SS=GwdSetServices, RC=STATUS) - VERIFY_(STATUS) - MOIST = MAPL_AddChild(GC, NAME='MOIST', SS=MoistSetServices, RC=STATUS) - VERIFY_(STATUS) - TURBL = MAPL_AddChild(GC, NAME='TURBULENCE', SS=TurblSetServices, RC=STATUS) - VERIFY_(STATUS) - CHEM = MAPL_AddChild(GC, NAME='CHEMISTRY', SS=AChemSetServices, RC=STATUS) - VERIFY_(STATUS) - SURF = MAPL_AddChild(GC, NAME='SURFACE', SS=SurfSetServices, RC=STATUS) - VERIFY_(STATUS) - RAD = MAPL_AddChild(GC, NAME='RADIATION', SS=RadiationSetServices, RC=STATUS) - VERIFY_(STATUS) + GWD = MAPL_AddChild(GC, NAME='GWD', SS=GwdSetServices, _RC) + MOIST = MAPL_AddChild(GC, NAME='MOIST', SS=MoistSetServices, _RC) + TURBL = MAPL_AddChild(GC, NAME='TURBULENCE', SS=TurblSetServices, _RC) + CHEM = MAPL_AddChild(GC, NAME='CHEMISTRY', SS=AChemSetServices, _RC) + SURF = MAPL_AddChild(GC, NAME='SURFACE', SS=SurfSetServices, _RC) + RAD = MAPL_AddChild(GC, NAME='RADIATION', SS=RadiationSetServices, _RC) ! Set the state variable specs. ! ----------------------------- - call MAPL_GetObjectFromGC ( GC, MAPL, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetObjectFromGC ( GC, MAPL, _RC) - call MAPL_GetResource ( MAPL, DO_OBIO, Label="USE_OCEANOBIOGEOCHEM:",DEFAULT=0, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource ( MAPL, DO_OBIO, Label="USE_OCEANOBIOGEOCHEM:",DEFAULT=0, _RC) - call MAPL_GetResource ( MAPL, DO_WAVES, Label="USE_WAVES:",DEFAULT=0, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetResource ( MAPL, DO_SEA_SPRAY, Label="USE_SEA_SPRAY:",DEFAULT=0, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource ( MAPL, DO_WAVES, Label="USE_WAVES:",DEFAULT=0, _RC) + call MAPL_GetResource ( MAPL, DO_SEA_SPRAY, Label="USE_SEA_SPRAY:",DEFAULT=0, _RC) - call MAPL_GetResource (MAPL, SURFRC, label = 'SURFRC:', default = 'GEOS_SurfaceGridComp.rc', RC=STATUS) ; VERIFY_(STATUS) - SCF = ESMF_ConfigCreate(rc=status) ; VERIFY_(STATUS) - call ESMF_ConfigLoadFile(SCF,SURFRC,rc=status) ; VERIFY_(STATUS) + call MAPL_GetResource (MAPL, SURFRC, label = 'SURFRC:', default = 'GEOS_SurfaceGridComp.rc', _RC) + SCF = ESMF_ConfigCreate(_RC) + call ESMF_ConfigLoadFile(SCF,SURFRC,_RC) call ESMF_ConfigGetAttribute (SCF, label='ATM_CO2:', value=ATM_CO2, DEFAULT=0, __RC__ ) call ESMF_ConfigDestroy (SCF, __RC__) - SCF = ESMF_ConfigCreate(rc=status) ; VERIFY_(STATUS) - call ESMF_ConfigLoadFile(SCF,'CO2_GridComp.rc',rc=status) ; VERIFY_(STATUS) + SCF = ESMF_ConfigCreate(_RC) + call ESMF_ConfigLoadFile(SCF,'CO2_GridComp.rc',_RC) call ESMF_ConfigGetAttribute (SCF, label='USE_CNNEE:', value=DO_CO2CNNEE, DEFAULT=0, __RC__ ) call ESMF_ConfigDestroy (SCF, __RC__) ! Get SYNCTQ & SYNCUV flag from config to know whether to terminate some imports ! --------------------------------------------------------------------------- - call MAPL_GetResource ( MAPL, SYNCUV, Label="SYNCUV:", DEFAULT= 1.0, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetResource ( MAPL, SYNCTQ, Label="SYNCTQ:", DEFAULT= 1.0, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource ( MAPL, SYNCUV, Label="SYNCUV:", DEFAULT= 1.0, _RC) + call MAPL_GetResource ( MAPL, SYNCTQ, Label="SYNCTQ:", DEFAULT= 1.0, _RC) !BOS @@ -207,8 +192,7 @@ subroutine SetServices ( GC, RC ) RESTART = MAPL_RestartSkip, & FRIENDLYTO = 'TURBULENCE:MOIST', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) ! !IMPORT STATE: @@ -219,8 +203,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'V', & @@ -228,8 +211,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'W', & @@ -237,8 +219,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'DZ', & @@ -246,8 +227,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'T', & @@ -255,8 +235,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'S', & @@ -264,8 +243,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm+2 s-2', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'ZLE', & @@ -273,8 +251,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'PLE', & @@ -282,72 +259,63 @@ subroutine SetServices ( GC, RC ) UNITS = 'Pa', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'DTDTDYN', & LONG_NAME = 'tendency_of_air_temperature_due_to_dynamics', & UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddImportSpec ( gc, & SHORT_NAME = 'DQVDTDYN', & LONG_NAME = 'tendency_of_specific_humidity_due_to_dynamics', & UNITS = 'kg/kg/s', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddImportSpec ( gc, & SHORT_NAME = 'QV_DYN_IN', & LONG_NAME = 'spec_humidity_at_begin_of_time_step', & UNITS = 'kg kg-1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddImportSpec ( gc, & SHORT_NAME = 'T_DYN_IN', & LONG_NAME = 'temperature_at_begin_of_time_step', & UNITS = 'K', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddImportSpec ( gc, & SHORT_NAME = 'U_DYN_IN', & LONG_NAME = 'u_wind_at_begin_of_time_step', & UNITS = 'm s-1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddImportSpec ( gc, & SHORT_NAME = 'V_DYN_IN', & LONG_NAME = 'v_wind_at_begin_of_time_step', & UNITS = 'm s-1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddImportSpec ( gc, & SHORT_NAME = 'PLE_DYN_IN', & LONG_NAME = 'edge_pressure_at_begin_of_time_step', & UNITS = 'Pa', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'AREA', & LONG_NAME = 'Grid-Cell Area', & UNITS = 'm+2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) ! !EXPORT STATE: @@ -355,15 +323,12 @@ subroutine SetServices ( GC, RC ) !------------------------------------------------- call ESMF_ConfigGetDim (cf, NQ, nCols, label=('TRI_increments::'), rc=STATUS) if (NQ > 0) then - call ESMF_ConfigFindLabel (cf, ('TRI_increments::'), rc=STATUS) - VERIFY_(STATUS) + call ESMF_ConfigFindLabel (cf, ('TRI_increments::'), _RC) allocate (NAMES(NQ), stat=STATUS) VERIFY_(STATUS) do i = 1, NQ - call ESMF_ConfigNextLine(cf, rc=STATUS) - VERIFY_(STATUS) - call ESMF_ConfigGetAttribute(cf, NAMES(i), rc=STATUS) - VERIFY_(STATUS) + call ESMF_ConfigNextLine(cf, _RC) + call ESMF_ConfigGetAttribute(cf, NAMES(i), _RC) enddo do i = 1, NQ if (NAMES(i) == 'AOADAYS') then @@ -377,8 +342,7 @@ subroutine SetServices ( GC, RC ) UNITS = TendUnits, & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) end do deallocate(NAMES) end if !NQ > 0 @@ -390,8 +354,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'Pa K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DTDTTOT', & @@ -399,8 +362,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DTDTRAD', & @@ -408,8 +370,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DUDT', & @@ -417,8 +378,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-2', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DVDT', & @@ -426,8 +386,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-2', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DWDT', & @@ -435,8 +394,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-2', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DPDTPHY', & @@ -444,8 +402,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'Pa s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DPEDT', & @@ -453,8 +410,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'Pa s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DMDT', & @@ -462,8 +418,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIM', & @@ -471,8 +426,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIMFRIC', & @@ -480,8 +434,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'SIT', & @@ -489,8 +442,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'Pa m+2 s-3', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIT', & @@ -498,8 +450,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'UIT', & @@ -507,8 +458,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-2', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'VIT', & @@ -516,8 +466,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-2', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'QVIT', & @@ -525,8 +474,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg kg-1 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'QLLSIT', & @@ -534,8 +482,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg kg-1 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'QILSIT', & @@ -543,8 +490,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg kg-1 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TKESHOCIT', & @@ -552,8 +498,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm2 s-3', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIF', & @@ -561,40 +506,35 @@ subroutine SetServices ( GC, RC ) UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TRADV ', & LONG_NAME = 'advected_quantities', & UNITS = 'X', & DATATYPE = MAPL_BundleItem, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'H2ORTRI', & LONG_NAME = 'H2O_rescale_increments', & UNITS = 'UNITS s-1', & DATATYPE = MAPL_BundleItem, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'MTRI', & LONG_NAME = 'moist_quantities', & UNITS = 'UNITS s-1', & DATATYPE = MAPL_BundleItem, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'MCHEMTRI', & LONG_NAME = 'moist_quantities', & UNITS = 'UNITS s-1', & DATATYPE = MAPL_BundleItem, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'upward_net_turbulence_heat_flux', & @@ -602,8 +542,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'FTB', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'upward_net_turbulence_eastward_momentum_flux', & @@ -611,8 +550,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'FTU', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'upward_net_turbulence_northward_momentum_flux', & @@ -620,80 +558,70 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'FTV', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TRANA', & LONG_NAME = 'analyzed_quantities', & UNITS = 'X', & DATATYPE = MAPL_BundleItem, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'KEPHY', & LONG_NAME = 'vertically_integrated_kinetic_energy_tendency_across_physics', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'PEPHY', & LONG_NAME = 'vertically_integrated_potential_energy_tendency_across_physics', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'PERAD', & LONG_NAME = 'vertically_integrated_potential_energy_tendency_across_radiation', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'PETRB', & LONG_NAME = 'vertically_integrated_potential_energy_tendency_across_turbulence', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'PEMST', & LONG_NAME = 'vertically_integrated_potential_energy_tendency_across_moist', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'PEFRI', & LONG_NAME = 'vertically_integrated_potential_energy_tendency_due_to_friction', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'PEGWD', & LONG_NAME = 'vertically_integrated_potential_energy_tendency_across_gwd', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'PECUF', & LONG_NAME = 'vertically_integrated_potential_energy_tendency_due_to_cumulus_friction', & UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDTTRBINT', & @@ -701,8 +629,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDTMSTINT', & @@ -710,8 +637,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDTCHMINT', & @@ -719,8 +645,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLDTMSTINT', & @@ -728,8 +653,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQIDTMSTINT', & @@ -737,8 +661,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQRDTMSTINT', & @@ -746,8 +669,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQSDTMSTINT', & @@ -755,8 +677,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQGDTMSTINT', & @@ -764,8 +685,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DOXDTCHMINT', & @@ -773,8 +693,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDTPHYINT', & @@ -782,8 +701,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLDTPHYINT', & @@ -791,8 +709,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQIDTPHYINT', & @@ -800,8 +717,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQRDTPHYINT', & @@ -809,8 +725,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQSDTPHYINT', & @@ -818,8 +733,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQGDTPHYINT', & @@ -827,8 +741,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DOXDTPHYINT', & @@ -836,8 +749,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDTSCL', & @@ -845,8 +757,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLDTSCL', & @@ -854,8 +765,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQIDTSCL', & @@ -863,8 +773,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDT_FILL_PHYS0', & @@ -872,8 +781,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLLSDT_FILL_PHYS0', & @@ -881,8 +789,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLCNDT_FILL_PHYS0', & @@ -890,8 +797,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQILSDT_FILL_PHYS0', & @@ -899,8 +805,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQICNDT_FILL_PHYS0', & @@ -908,8 +813,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQRDT_FILL_PHYS0', & @@ -917,8 +821,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQSDT_FILL_PHYS0', & @@ -926,8 +829,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQGDT_FILL_PHYS0', & @@ -935,8 +837,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & @@ -945,8 +846,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLLSDT_FILL_AFMST', & @@ -954,8 +854,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLCNDT_FILL_AFMST', & @@ -963,8 +862,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQILSDT_FILL_AFMST', & @@ -972,8 +870,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQICNDT_FILL_AFMST', & @@ -981,8 +878,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQRDT_FILL_AFMST', & @@ -990,8 +886,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQSDT_FILL_AFMST', & @@ -999,8 +894,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQGDT_FILL_AFMST', & @@ -1008,8 +902,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDT_FILL_AFSTG1', & @@ -1017,8 +910,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLLSDT_FILL_AFSTG1', & @@ -1026,8 +918,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLCNDT_FILL_AFSTG1', & @@ -1035,8 +926,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQILSDT_FILL_AFSTG1', & @@ -1044,8 +934,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQICNDT_FILL_AFSTG1', & @@ -1053,8 +942,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQRDT_FILL_AFSTG1', & @@ -1062,8 +950,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQSDT_FILL_AFSTG1', & @@ -1071,8 +958,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQGDT_FILL_AFSTG1', & @@ -1080,8 +966,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDT_FILL_AFSTG2', & @@ -1089,8 +974,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLLSDT_FILL_AFSTG2', & @@ -1098,8 +982,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLCNDT_FILL_AFSTG2', & @@ -1107,8 +990,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQILSDT_FILL_AFSTG2', & @@ -1116,8 +998,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQICNDT_FILL_AFSTG2', & @@ -1125,8 +1006,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQRDT_FILL_AFSTG2', & @@ -1134,8 +1014,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQSDT_FILL_AFSTG2', & @@ -1143,8 +1022,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQGDT_FILL_AFSTG2', & @@ -1152,8 +1030,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDT_FILL_PHYS1', & @@ -1161,8 +1038,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLLSDT_FILL_PHYS1', & @@ -1170,8 +1046,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQLCNDT_FILL_PHYS1', & @@ -1179,8 +1054,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQILSDT_FILL_PHYS1', & @@ -1188,8 +1062,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQICNDT_FILL_PHYS1', & @@ -1197,8 +1070,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQRDT_FILL_PHYS1', & @@ -1206,8 +1078,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQSDT_FILL_PHYS1', & @@ -1215,8 +1086,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQGDT_FILL_PHYS1', & @@ -1224,8 +1094,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DTDTUNPERT', & @@ -1233,112 +1102,98 @@ subroutine SetServices ( GC, RC ) UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DUDTUNPERT', & LONG_NAME = 'unperturtbed_tendency_of_eastward_wind', & UNITS = 'm s-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DVDTUNPERT', & LONG_NAME = 'unperturtbed_tendency_of_northward_wind', & UNITS = 'm s-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'QVUNPERT', & LONG_NAME = 'unperturbed_water_vapor', & UNITS = 'kg kg-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDTUNPERT', & LONG_NAME = 'unperturbed_tendency_of_water_vapor', & UNITS = 'kg kg-1 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'QVPERT', & LONG_NAME = 'stochastically_pert_water_vapor', & UNITS = 'kg kg-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDTPERT', & LONG_NAME = 'stochastically_pert_tendency_of_water_vapor', & UNITS = 'kg kg-1 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DUDTSTOCH', & LONG_NAME = 'eastward_wind_tendency_due_to_stochastic_physics', & UNITS = 'm s-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DVDTSTOCH', & LONG_NAME = 'northward_wind_tendency_due_to_stochastic_physics', & UNITS = 'm s-2 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DTDTSTOCH', & LONG_NAME = 'air_temperature_tendency_due_to_stochastic_physics', & UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'DQVDTSTOCH', & LONG_NAME = 'water_vapor_tendency_due_to_stochastic_physics', & UNITS = 'kg kg-1 s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'RNDPTR', & LONG_NAME = 'sppt_stochastic_pattern', & UNITS = 'n/a', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'SKEBU', & LONG_NAME = 'skeb_perturbation_for_eastward_wind_tendency', & UNITS = 'm s-2', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'SKEBV', & LONG_NAME = 'skeb_perturbation_for_northward_wind_tendency',& UNITS = 'm s-2', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIME_IN_GWD', & @@ -1346,8 +1201,7 @@ subroutine SetServices ( GC, RC ) UNITS = 's', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIME_IN_MST', & @@ -1355,8 +1209,7 @@ subroutine SetServices ( GC, RC ) UNITS = 's', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIME_IN_TRB', & @@ -1364,8 +1217,7 @@ subroutine SetServices ( GC, RC ) UNITS = 's', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIME_IN_SFC', & @@ -1373,8 +1225,7 @@ subroutine SetServices ( GC, RC ) UNITS = 's', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIME_IN_CHM', & @@ -1382,8 +1233,7 @@ subroutine SetServices ( GC, RC ) UNITS = 's', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TIME_IN_RAD', & @@ -1391,8 +1241,7 @@ subroutine SetServices ( GC, RC ) UNITS = 's', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Ozone (ppmv) and Odd Oxygen (mol/mol) ! Note: GMI currently provides just O3 as Odd Oxygen @@ -1400,124 +1249,104 @@ subroutine SetServices ( GC, RC ) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'O3PPMV', & CHILD_ID = CHEM, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'OX', & CHILD_ID = CHEM, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! The following are exported up for Atmos Ana purposes ! ---------------------------------------------------- call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'PPBL', & CHILD_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'Q', & CHILD_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'QCTOT', & CHILD_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'U10M', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'V10M', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'U10N', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'V10N', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'SNOMAS', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'WET1', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'TSOIL1', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'LWI', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'TS', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'FRLAND', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'FRLANDICE', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'FRLAKE', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'FROCEAN', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'FRACI', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( GC , & SHORT_NAME = 'Z0', & CHILD_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) !EOS @@ -1535,8 +1364,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = (/ 'RADLW ', 'RADLWC' /), & DST_ID = TURBL, & SRC_ID = RAD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = [character(len=6) :: & @@ -1544,8 +1372,7 @@ subroutine SetServices ( GC, RC ) 'WTHV2','WQT_DC','EIS'], & DST_ID = TURBL, & SRC_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'CT ','CM ','CQ ', & @@ -1553,8 +1380,7 @@ subroutine SetServices ( GC, RC ) 'FRLAND','EVAP ','SH '/), & DST_ID = TURBL, & SRC_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Radiation Imports !------------------- @@ -1565,8 +1391,7 @@ subroutine SetServices ( GC, RC ) 'FCLD','RL','RI','RR','RS','RG'], & DST_ID = RAD, & SRC_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'ALBVR ','ALBVF ','ALBNR ','ALBNF ', & @@ -1574,8 +1399,7 @@ subroutine SetServices ( GC, RC ) 'FRLAND ','FROCEAN' /), & DST_ID = RAD, & SRC_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! ----------------------------------------------------------------- ! Radiatively active species and required units @@ -1592,8 +1416,7 @@ subroutine SetServices ( GC, RC ) CALL MAPL_AddConnectivity( GC, & SHORT_NAME = (/'OX ','O3 ','CH4 ','N2O ', & 'CFC11 ','CFC12 ','HCFC22' /), & - DST_ID=RAD, SRC_ID=CHEM, RC=STATUS ) - VERIFY_(STATUS) + DST_ID=RAD, SRC_ID=CHEM, _RC) ! <<>> MSL DEV ! CO2 is not listed as a RAT, so add it here outside of the RATs code logic @@ -1606,14 +1429,12 @@ subroutine SetServices ( GC, RC ) if (trim(co2provider) .eq. 'GOCART' .and. CO2_ .eq. -2.0) then CALL MAPL_AddConnectivity( GC, & SHORT_NAME = (/'CO2'/), & - DST_ID=RAD, SRC_ID=CHEM, RC=STATUS ) - VERIFY_(STATUS) + DST_ID=RAD, SRC_ID=CHEM, _RC) endif if (trim(co2provider) .eq. 'RRG' .and. CO2_ .eq. -2.0) then CALL MAPL_AddConnectivity( GC, & SHORT_NAME = (/'CO2'/), & - DST_ID=RAD, SRC_ID=CHEM, RC=STATUS ) - VERIFY_(STATUS) + DST_ID=RAD, SRC_ID=CHEM, _RC) endif ! ----------------------------------------------------------------- @@ -1621,16 +1442,14 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = (/'AERO'/), & DST_ID = RAD, & SRC_ID = CHEM, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'TS', & DST_NAME = 'TSINST', & SRC_ID = SURF, & DST_ID = RAD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Surface Imports !---------------- @@ -1641,8 +1460,7 @@ subroutine SetServices ( GC, RC ) 'CN_PRCP' /), & DST_ID = SURF, & SRC_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'ALW ','BLW ', & @@ -1650,16 +1468,14 @@ subroutine SetServices ( GC, RC ) 'DFNIRN','DRUVRN','DFUVRN' /), & DST_ID = SURF, & SRC_ID = RAD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'LWS0', & DST_NAME = 'LWDNSRF', & SRC_ID = RAD, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) IF((DO_OBIO /= 0) .OR. (ATM_CO2 == 4)) THEN call MAPL_AddConnectivity ( GC, & @@ -1667,8 +1483,7 @@ subroutine SetServices ( GC, RC ) DST_NAME = 'CO2SC', & SRC_ID = CHEM, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ENDIF IF (DO_OBIO /= 0) THEN @@ -1676,16 +1491,14 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = (/'DROBIO', 'DFOBIO'/), & SRC_ID = RAD, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ENDIF call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'AERO_DP'/), & SRC_ID = CHEM, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Imports for GWD !---------------- @@ -1693,22 +1506,19 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = [character(len=7) :: 'Q', 'CNV_FRC' ], & DST_ID = GWD, & SRC_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'DTDT_micro', & DST_NAME = 'HT_mi', & DST_ID = GWD, & SRC_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'DTDT_DC', & DST_NAME = 'HT_dc', & DST_ID = GWD, & SRC_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Chemistry Imports ! ----------------- @@ -1726,23 +1536,20 @@ subroutine SetServices ( GC, RC ) 'BYNCY ', 'CAPE ', 'INHB ' /), & DST_ID = CHEM, & SRC_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = (/ 'Q ','FCLD ' /), & DST_NAME = (/ 'Q_avg24 ','FCLD_avg24' /), & DST_ID = CHEM, & SRC_ID = MOIST, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'ZPBL','PPBL'/), & DST_ID = CHEM, & SRC_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/ 'LWI ', 'FRLAND ', 'FRLANDICE', & @@ -1760,8 +1567,7 @@ subroutine SetServices ( GC, RC ) 'PRECTOT ' /), & DST_ID = CHEM, & SRC_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! NOTE: GOCART's dust code expects WET1 to have all the cells with MAPL_UNDEF ! (aka not land) to be replaced with 1.0. We want WET1 to have @@ -1772,16 +1578,14 @@ subroutine SetServices ( GC, RC ) SRC_ID = SURF, & DST_NAME = [ 'WET1' ], & DST_ID = CHEM, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) if (DO_CO2CNNEE == 1) then call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'CNNEE'/), & DST_ID = CHEM, & SRC_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) endif call MAPL_AddConnectivity ( GC, & @@ -1789,16 +1593,14 @@ subroutine SetServices ( GC, RC ) 'DFPAR ', 'DRPAR ' /), & DST_ID = CHEM, & SRC_ID = RAD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = (/ 'TAUCLI ', 'TAUCLW '/), & DST_NAME = (/ 'TAUCLI_avg24', 'TAUCLW_avg24'/), & DST_ID = CHEM, & SRC_ID = RAD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Moist Imports !-------------- @@ -1807,8 +1609,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = (/'U','V','T'/), & DST_ID = MOIST, & SRC_ID = GWD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'KH ', 'KPBL ', 'KPBL_SC ', & @@ -1818,23 +1619,20 @@ subroutine SetServices ( GC, RC ) 'WSL ', 'QT2 ', 'QT3 '/), & DST_ID = MOIST, & SRC_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'TS' /), & DST_ID = MOIST, & SRC_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'SNOMAS ','FRLAND ','FROCEAN ', & 'FRLANDICE','FRACI '/), & DST_ID = MOIST, & SRC_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'T2M ', 'Q2M ', 'TA ', 'QA ', 'SH ', & @@ -1842,8 +1640,7 @@ subroutine SetServices ( GC, RC ) /), & DST_ID = MOIST, & SRC_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) !-------------- DONIF Additional Moist Imports @@ -1854,43 +1651,37 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = (/'AERO'/), & DST_ID = MOIST, & SRC_ID = CHEM, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'TAUOROX'/), & DST_ID = MOIST, & SRC_ID = GWD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'TAUOROY'/), & DST_ID = MOIST, & SRC_ID = GWD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'RADLW'/), & DST_ID = MOIST, & SRC_ID = RAD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'RADSW'/), & DST_ID = MOIST, & SRC_ID = RAD, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SHORT_NAME = (/'ALH', 'KM ', 'RI '/), & DST_ID = MOIST, & SRC_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) !EOP @@ -1901,8 +1692,7 @@ subroutine SetServices ( GC, RC ) call MAPL_TerminateImport ( GC, & SHORT_NAME = (/'DEWL ','FRSL ','DDEWL','DFRSL'/), & CHILD = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Surface values and their changes: SURF -> TURBL !------------------------------------------------ @@ -1911,64 +1701,56 @@ subroutine SetServices ( GC, RC ) DST_NAME = 'SHAT', & SRC_ID = SURF, & DST_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'UHAT', & DST_NAME = 'UHAT', & SRC_ID = SURF, & DST_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'VHAT', & DST_NAME = 'VHAT', & SRC_ID = SURF, & DST_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'QHAT', & DST_NAME = 'QHAT', & SRC_ID = SURF, & DST_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'DELSS', & DST_NAME = 'SDEL', & SRC_ID = SURF, & DST_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'DELUS', & DST_NAME = 'UDEL', & SRC_ID = SURF, & DST_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'DELVS', & DST_NAME = 'VDEL', & SRC_ID = SURF, & DST_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'DELQS', & DST_NAME = 'QDEL', & SRC_ID = SURF, & DST_ID = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Surface fluxes and their derivatives: TURBL -> SURF !------------------------------------------------ @@ -1977,146 +1759,127 @@ subroutine SetServices ( GC, RC ) DST_NAME = 'SH', & SRC_ID = TURBL, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'UFLX', & DST_NAME = 'TAUX', & SRC_ID = TURBL, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'VFLX', & DST_NAME = 'TAUY', & SRC_ID = TURBL, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'QFLX', & DST_NAME = 'EVAP', & SRC_ID = TURBL, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'SDFL', & DST_NAME = 'DSH', & SRC_ID = TURBL, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'UDFL', & DST_NAME = 'DFU', & SRC_ID = TURBL, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'VDFL', & DST_NAME = 'DFV', & SRC_ID = TURBL, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddConnectivity ( GC, & SRC_NAME = 'QDFL', & DST_NAME = 'DEVAP', & SRC_ID = TURBL, & DST_ID = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! terminate imports to SURF for SYNCUV if ( SYNCUV.ge.1.) then call MAPL_TerminateImport ( GC, & SHORT_NAME = [character(len=5) :: 'UA','VA','SPEED' ], & CHILD = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) endif ! terminate imports to SURF for SYNCTQ if ( SYNCTQ.ge.1.) then call MAPL_TerminateImport ( GC, & SHORT_NAME = [character(len=5) :: 'TA','QA' ], & CHILD = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) endif if (DO_WAVES/=0) then call MAPL_TerminateImport ( GC, & SHORT_NAME = (/ 'CHARNOCK'/), & CHILD = SURF, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) endif if (DO_WAVES/=0 .and. DO_SEA_SPRAY/=0) then call MAPL_TerminateImport ( GC, & SHORT_NAME = (/ 'SHFX_SPRAY', 'LHFX_SPRAY'/), & CHILD = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) endif call MAPL_TerminateImport ( GC, & SHORT_NAME = (/'TR ' /), & CHILD = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! terminate imports to turb for SYNCUV if ( SYNCUV.ge.1.) then call MAPL_TerminateImport ( GC, & SHORT_NAME = (/'U ','V ' /), & CHILD = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) endif ! terminate imports to turb for SYNCTQ if ( SYNCTQ.ge.1.) then call MAPL_TerminateImport ( GC, & SHORT_NAME = (/'T ','TH' /), & CHILD = TURBL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) endif call MAPL_TerminateImport ( GC, & SHORT_NAME = (/'DQLDTTRB','DQIDTTRB'/), & CHILD = MOIST, & - RC=STATUS) - VERIFY_(STATUS) + _RC) call MAPL_TerminateImport ( GC, & SHORT_NAME = (/'MTR'/), & CHILD = MOIST, & - RC=STATUS) - VERIFY_(STATUS) + _RC) call MAPL_TerminateImport ( GC, & SHORT_NAME = (/'DQDT_BL','DTDT_BL'/), & CHILD = MOIST, & - RC=STATUS) - VERIFY_(STATUS) + _RC) ! terminate imports to chem for SYNCTQ if ( SYNCTQ.eq.1.) then call MAPL_TerminateImport ( GC, & SHORT_NAME = (/'T ','TH'/), & CHILD = CHEM, & - RC=STATUS) - VERIFY_(STATUS) + _RC) endif ! terminate imports to RAD for SYNCTQ @@ -2124,25 +1887,20 @@ subroutine SetServices ( GC, RC ) call MAPL_TerminateImport ( GC, & SHORT_NAME = (/'T'/), & CHILD = RAD, & - RC=STATUS) - VERIFY_(STATUS) + _RC) endif - call MAPL_TimerAdd(GC, name="INITIALIZE" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerAdd(GC, name="INITIALIZE" ,_RC) ! Set a profiling timer for GPU initialization ! -------------------------------------------- #ifdef _CUDA - call MAPL_TimerAdd(GC, name="-GPUINIT" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerAdd(GC, name="-GPUINIT" ,_RC) #endif - call MAPL_TimerAdd(GC, name="RUN" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerAdd(GC, name="RUN" ,_RC) - call MAPL_GenericSetServices ( GC, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GenericSetServices ( GC, _RC) RETURN_(ESMF_SUCCESS) @@ -2234,15 +1992,13 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) !define PRINT_STATES Iam = "Initialize" - call ESMF_GridCompGet ( GC, name=COMP_NAME, GRID=GRID, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_GridCompGet ( GC, name=COMP_NAME, GRID=GRID, _RC) Iam = trim(COMP_NAME) // "::" // Iam ! Get my MAPL_Generic state !-------------------------- - call MAPL_GetObjectFromGC ( GC, STATE, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetObjectFromGC ( GC, STATE, _RC) #ifdef _CUDA @@ -2252,11 +2008,9 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) !! Step One: Get our rank and size !! ------------------------------- - call ESMF_VmGetCurrent(VM, rc=status) - VERIFY_(STATUS) + call ESMF_VmGetCurrent(VM, _RC) - call ESMF_VmGet(VM, localPet=MYID, petCount=NCPUS, rc=STATUS) - VERIFY_(STATUS) + call ESMF_VmGet(VM, localPet=MYID, petCount=NCPUS, _RC) !! Step Two: Initialize the GPUs !! ----------------------------- @@ -2296,8 +2050,7 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Call Initialize for every Child !-------------------------------- - call MAPL_GenericInitialize ( GC, IMPORT, EXPORT, CLOCK, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GenericInitialize ( GC, IMPORT, EXPORT, CLOCK, _RC) call MAPL_TimerOn(STATE,"TOTAL") call MAPL_TimerOn(STATE,"INITIALIZE") @@ -2313,8 +2066,7 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Get children and their im/ex states from my generic state. !---------------------------------------------------------- - call MAPL_Get ( STATE, GCS=GCS, GIM=GIM, GEX=GEX, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_Get ( STATE, GCS=GCS, GIM=GIM, GEX=GEX, _RC) ! Fill the turbulence tracer bundle: S, U, and V come from @@ -2331,47 +2083,30 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) ! call; all others have to be done manually. ! ----------------------------------------------------------------- - call ESMF_StateGet (GIM(TURBL), 'TR' , BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet (GIM(TURBL), 'TR' , BUNDLE, _RC) ! Add Non-Friendlies from Dynamics - call ESMF_StateGet (IMPORT, 'S' , FIELD, RC=STATUS ) - VERIFY_(STATUS) - call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="S", RC=STATUS ) - VERIFY_(STATUS) - call ESMF_AttributeSet(FIELD, NAME="WeightedTendency",VALUE=.TRUE., RC=STATUS ) - VERIFY_(STATUS) - call MAPL_FieldBundleAdd (BUNDLE, FIELD, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet (IMPORT, 'S' , FIELD, _RC) + call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="S", _RC) + call ESMF_AttributeSet(FIELD, NAME="WeightedTendency",VALUE=.TRUE., _RC) + call MAPL_FieldBundleAdd (BUNDLE, FIELD, _RC) - call ESMF_StateGet (IMPORT, 'U' , FIELD, RC=STATUS ) - VERIFY_(STATUS) - call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="U", RC=STATUS ) - VERIFY_(STATUS) - call MAPL_FieldBundleAdd (BUNDLE, FIELD, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet (IMPORT, 'U' , FIELD, _RC) + call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="U", _RC) + call MAPL_FieldBundleAdd (BUNDLE, FIELD, _RC) - call ESMF_StateGet (IMPORT, 'V' , FIELD, RC=STATUS ) - VERIFY_(STATUS) - call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="U", RC=STATUS ) - VERIFY_(STATUS) - call MAPL_FieldBundleAdd (BUNDLE, FIELD, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet (IMPORT, 'V' , FIELD, _RC) + call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="U", _RC) + call MAPL_FieldBundleAdd (BUNDLE, FIELD, _RC) - call ESMF_StateGet (GEX(TURBL), 'TKESHOC' , FIELD, RC=STATUS ) - VERIFY_(STATUS) - call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="Q", RC=STATUS ) - VERIFY_(STATUS) - call MAPL_FieldBundleAdd (BUNDLE, FIELD, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet (GEX(TURBL), 'TKESHOC' , FIELD, _RC) + call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="Q", _RC) + call MAPL_FieldBundleAdd (BUNDLE, FIELD, _RC) - call ESMF_StateGet (GEX(TURBL), 'QT2' , FIELD, RC=STATUS ) - VERIFY_(STATUS) - call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="Q", RC=STATUS ) - VERIFY_(STATUS) - call MAPL_FieldBundleAdd (BUNDLE, FIELD, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet (GEX(TURBL), 'QT2' , FIELD, _RC) + call ESMF_AttributeSet(FIELD, NAME="DiffuseLike" ,VALUE="Q", _RC) + call MAPL_FieldBundleAdd (BUNDLE, FIELD, _RC) ! call ESMF_StateGet (GEX(TURBL), 'QT3' , FIELD, RC=STATUS ) ! VERIFY_(STATUS) @@ -2381,21 +2116,16 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) ! VERIFY_(STATUS) ! Add Friendlies from Physics - call MAPL_GridCompGetFriendlies(GC, "TURBULENCE", BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompGetFriendlies(GC, "TURBULENCE", BUNDLE, _RC) ! Add Friendlies from Moist (We assume QV is among these, all others are treated as default) - call MAPL_GridCompGetFriendlies(GCS(MOIST) , "TURBULENCE", BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompGetFriendlies(GCS(MOIST) , "TURBULENCE", BUNDLE, _RC) ! Add Friendlies from Chem (These are default tracers--zero surface flux) - call MAPL_GridCompGetFriendlies(GCS(CHEM), "TURBULENCE", BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompGetFriendlies(GCS(CHEM), "TURBULENCE", BUNDLE, _RC) ! Print what is in the BUNDLE - call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NUM_TRACERS, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NUM_TRACERS, _RC) allocate( NAMES(NUM_TRACERS),STAT=STATUS ) VERIFY_(STATUS) - call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, rc=STATUS ) - VERIFY_(STATUS) + call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, _RC) do I=1,NUM_TRACERS call WRITE_PARALLEL ( trim(NAMES(I))//": in the TURBULENCE Bundle" ) end do @@ -2404,8 +2134,7 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Count tracers !-------------- - call ESMF_FieldBundleGet(BUNDLE,FieldCount=NUM_TRACERS, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldBundleGet(BUNDLE,FieldCount=NUM_TRACERS, _RC) ! Get the names of all tracers to fill other turbulence bundles. !--------------------------------------------------------------- @@ -2413,16 +2142,14 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) allocate(NAMES(NUM_TRACERS),STAT=STATUS) VERIFY_(STATUS) - call ESMF_FieldBundleGet(BUNDLE, fieldNameList=NAMES, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldBundleGet(BUNDLE, fieldNameList=NAMES, _RC) ! Fill the increments bundle that turbulence will export. ! These fields come from the physics EXPORT, ones not there ! will have an empty field. !------------------------------------------------------------ - call ESMF_StateGet ( GEX(TURBL), 'TRI', BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet ( GEX(TURBL), 'TRI', BUNDLE, _RC) do I=1,NUM_TRACERS select case (trim(NAMES(I))) @@ -2432,8 +2159,7 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) iNAME = trim(NAMES(I)) // 'IT' end select call ESMFL_StateGetField (EXPORT, (/iNAME/), & - BUNDLE, (/trim(NAMES(I))//'IT'/), RC=STATUS ) - VERIFY_(STATUS) + BUNDLE, (/trim(NAMES(I))//'IT'/), _RC) end do #ifdef PRINT_STATES @@ -2446,21 +2172,16 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Fill export bundle of child quantities to be advected !------------------------------------------------------ - call ESMF_StateGet(EXPORT, 'TRADV', BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet(EXPORT, 'TRADV', BUNDLE, _RC) ! Add Friendlies to DYNAMICS from all children of physics - call MAPL_GridCompGetFriendlies(GC, "DYNAMICS", BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompGetFriendlies(GC, "DYNAMICS", BUNDLE, _RC) ! Add Friendlies to DYNAMICS from all children of physics - call MAPL_GridCompGetFriendlies(GCS, "DYNAMICS", BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompGetFriendlies(GCS, "DYNAMICS", BUNDLE, _RC) ! Print what is in the BUNDLE - call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NUM_TRACERS, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NUM_TRACERS, _RC) allocate( NAMES(NUM_TRACERS),STAT=STATUS ) VERIFY_(STATUS) - call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, rc=STATUS ) - VERIFY_(STATUS) + call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, _RC) do I=1,NUM_TRACERS call WRITE_PARALLEL ( trim(NAMES(I))//": in the DYNAMICS Advection Bundle" ) end do @@ -2473,21 +2194,16 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Fill export bundle of child quantities to be analyzed !------------------------------------------------------ - call ESMF_StateGet(EXPORT, 'TRANA', BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet(EXPORT, 'TRANA', BUNDLE, _RC) ! Add Friendlies to MOIST from Physics - call MAPL_GridCompGetFriendlies(GC, "ANALYSIS", BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompGetFriendlies(GC, "ANALYSIS", BUNDLE, _RC) ! Add Friendlies ta ANALYSIS from all children of physics - call MAPL_GridCompGetFriendlies(GCS, "ANALYSIS", BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompGetFriendlies(GCS, "ANALYSIS", BUNDLE, _RC) ! Print what is in the BUNDLE - call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NUM_TRACERS, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NUM_TRACERS, _RC) allocate( NAMES(NUM_TRACERS),STAT=STATUS ) VERIFY_(STATUS) - call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, rc=STATUS ) - VERIFY_(STATUS) + call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, _RC) do I=1,NUM_TRACERS call WRITE_PARALLEL ( trim(NAMES(I))//": in the ANALYSIS Bundle" ) end do @@ -2498,21 +2214,16 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) ! field attributes (TBD) !----------------------------------------------------------------------- - call ESMF_StateGet (GIM(MOIST), 'MTR', BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet (GIM(MOIST), 'MTR', BUNDLE, _RC) ! Add Friendlies to MOIST from Physics - call MAPL_GridCompGetFriendlies(GC, "MOIST", BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompGetFriendlies(GC, "MOIST", BUNDLE, _RC) ! Add Friendlies to MOIST from all children of physics - call MAPL_GridCompGetFriendlies(GCS, "MOIST", BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompGetFriendlies(GCS, "MOIST", BUNDLE, _RC) ! Print what is in the BUNDLE - call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NUM_TRACERS, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NUM_TRACERS, _RC) allocate( NAMES(NUM_TRACERS),STAT=STATUS ) VERIFY_(STATUS) - call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, rc=STATUS ) - VERIFY_(STATUS) + call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, _RC) do I=1,NUM_TRACERS call WRITE_PARALLEL ( trim(NAMES(I))//": in the MOIST Convective transport Bundle" ) end do @@ -2526,8 +2237,7 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) call Initialize_IncBundle_init(GC, GIM(MOIST), EXPORT, MTRIinc, __RC__) #ifdef PRINT_STATES - call ESMF_StateGet(EXPORT, 'MTRI', iBUNDLE, rc=STATUS) - VERIFY_(STATUS) + call ESMF_StateGet(EXPORT, 'MTRI', iBUNDLE, _RC) call WRITE_PARALLEL ( trim(Iam)//": MTRI - Convective Transport and Scavenging 3D Tendency Bundle" ) if ( MAPL_am_I_root() ) call ESMF_FieldBundlePrint ( iBUNDLE, rc=STATUS ) @@ -2538,8 +2248,7 @@ subroutine Initialize ( GC, IMPORT, EXPORT, CLOCK, RC ) call Initialize_IncMBundle_init(GC, GIM(MOIST), EXPORT, __RC__) #ifdef PRINT_STATES - call ESMF_StateGet(EXPORT, 'MCHEMTRI', iBUNDLE, rc=STATUS) - VERIFY_(STATUS) + call ESMF_StateGet(EXPORT, 'MCHEMTRI', iBUNDLE, _RC) call WRITE_PARALLEL ( trim(Iam)//": MCHEMTRI - Convective Transport and Scavenging 2D Tendency Bundle" ) if ( MAPL_am_I_root() ) call ESMF_FieldBundlePrint ( iBUNDLE, rc=STATUS ) @@ -2726,27 +2435,22 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) ! ----------------------------------------------------------- Iam = "Run" - call ESMF_GridCompGet ( GC, name=COMP_NAME, VM=VMG, config=CF, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_GridCompGet ( GC, name=COMP_NAME, VM=VMG, config=CF, _RC) Iam = trim(COMP_NAME) // "::" // Iam - call ESMF_GridCompGet ( GC, grid=grid, rc=status ) - VERIFY_(STATUS) + call ESMF_GridCompGet ( GC, grid=grid, _RC) ! Get my internal MAPL_Generic state !----------------------------------- - call MAPL_GetObjectFromGC ( GC, STATE, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetObjectFromGC ( GC, STATE, _RC) call MAPL_TimerOn(STATE,"TOTAL") call MAPL_TimerOn(STATE,"RUN") - call MAPL_GetResource(STATE, SCM_NO_RAD, Label="SCM_NO_RAD:", default=.FALSE., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource(STATE, SCM_NO_RAD, Label="SCM_NO_RAD:", default=.FALSE., _RC) - call MAPL_GetResource(STATE, DPEDT_PHYS, Label="DPEDT_PHYS:", default=.TRUE., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource(STATE, DPEDT_PHYS, Label="DPEDT_PHYS:", default=.TRUE., _RC) ! Get the children`s states from the generic state !------------------------------------------------- @@ -2757,87 +2461,68 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) LONS=LONS, LATS=LATS, & GCNames = GCNames, & INTERNAL_ESMF_STATE = INTERNAL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) - call ESMF_ConfigGetAttribute(CF, DT, Label="RUN_DT:" , RC=STATUS) - VERIFY_(STATUS) + call ESMF_ConfigGetAttribute(CF, DT, Label="RUN_DT:" , _RC) - call ESMF_ConfigGetAttribute(CF, ISPPT, Label="SPPT:", DEFAULT = 0 , RC=STATUS) - VERIFY_(STATUS) + call ESMF_ConfigGetAttribute(CF, ISPPT, Label="SPPT:", DEFAULT = 0 , _RC) DO_SPPT = (ISPPT/=0) - call ESMF_ConfigGetAttribute(CF, ISKEB, Label="SKEB:", DEFAULT = 0 , RC=STATUS) - VERIFY_(STATUS) + call ESMF_ConfigGetAttribute(CF, ISKEB, Label="SKEB:", DEFAULT = 0 , _RC) DO_SKEB = (ISKEB/=0) - call ESMF_StateGet (EXPORT, 'TRADV', BUNDLE, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet (EXPORT, 'TRADV', BUNDLE, _RC) allocate(zero(IM,JM,LM),stat=status) VERIFY_(status) zero = 0.0 - call ESMFL_BundleGetPointertoData( BUNDLE,'Q' ,QV , RC=STATUS) - VERIFY_(STATUS) - call ESMFL_BundleGetPointertoData( BUNDLE,'QLLS',QLLS, RC=STATUS) - VERIFY_(STATUS) - call ESMFL_BundleGetPointertoData( BUNDLE,'QLCN',QLCN, RC=STATUS) - VERIFY_(STATUS) - call ESMFL_BundleGetPointertoData( BUNDLE,'QILS',QILS, RC=STATUS) - VERIFY_(STATUS) - call ESMFL_BundleGetPointertoData( BUNDLE,'QICN',QICN, RC=STATUS) - VERIFY_(STATUS) + call ESMFL_BundleGetPointertoData( BUNDLE,'Q' ,QV , _RC) + call ESMFL_BundleGetPointertoData( BUNDLE,'QLLS',QLLS, _RC) + call ESMFL_BundleGetPointertoData( BUNDLE,'QLCN',QLCN, _RC) + call ESMFL_BundleGetPointertoData( BUNDLE,'QILS',QILS, _RC) + call ESMFL_BundleGetPointertoData( BUNDLE,'QICN',QICN, _RC) call ESMF_FieldBundleGet ( BUNDLE, fieldName='QRAIN', isPresent=isPresent, RC=STATUS) if (isPresent) then - call ESMFL_BundleGetPointerToData( BUNDLE, 'QRAIN', QRAIN, RC=STATUS ) - VERIFY_(STATUS) + call ESMFL_BundleGetPointerToData( BUNDLE, 'QRAIN', QRAIN, _RC) else QRAIN => zero end if call ESMF_FieldBundleGet ( BUNDLE, fieldName='QSNOW', isPresent=isPresent, RC=STATUS) if (isPresent) then - call ESMFL_BundleGetPointerToData( BUNDLE, 'QSNOW', QSNOW, RC=STATUS ) - VERIFY_(STATUS) + call ESMFL_BundleGetPointerToData( BUNDLE, 'QSNOW', QSNOW, _RC) else QSNOW => zero end if call ESMF_FieldBundleGet ( BUNDLE, fieldName='QGRAUPEL', isPresent=isPresent, RC=STATUS) if (isPresent) then - call ESMFL_BundleGetPointerToData( BUNDLE, 'QGRAUPEL', QGRAUPEL, RC=STATUS ) - VERIFY_(STATUS) + call ESMFL_BundleGetPointerToData( BUNDLE, 'QGRAUPEL', QGRAUPEL, _RC) else QGRAUPEL => zero end if ! Get Global PHYSICS Parameters ! ----------------------------- - call MAPL_GetResource(STATE, SYNCUV, 'SYNCUV:', DEFAULT= 1.0, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetResource(STATE, SYNCTQ, 'SYNCTQ:', DEFAULT= 1.0, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetResource(STATE, DEBUG_SYNCTQ, Label="DEBUG_SYNCTQ:", DEFAULT= .false., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetResource(STATE, DEBUG_PHYINC, Label="DEBUG_PHYINC:", DEFAULT= .false., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetResource(STATE, DOPHYSICS, 'DOPHYSICS:', DEFAULT= 1.0, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource(STATE, SYNCUV, 'SYNCUV:', DEFAULT= 1.0, _RC) + call MAPL_GetResource(STATE, SYNCTQ, 'SYNCTQ:', DEFAULT= 1.0, _RC) + call MAPL_GetResource(STATE, DEBUG_SYNCTQ, Label="DEBUG_SYNCTQ:", DEFAULT= .false., _RC) + call MAPL_GetResource(STATE, DEBUG_PHYINC, Label="DEBUG_PHYINC:", DEFAULT= .false., _RC) + call MAPL_GetResource(STATE, DOPHYSICS, 'DOPHYSICS:', DEFAULT= 1.0, _RC) HGT_SURFACE = 50.0 if (LM .eq. 72) HGT_SURFACE = 0.0 - call MAPL_GetResource(STATE, HGT_SURFACE, Label="HGT_SURFACE:", DEFAULT= HGT_SURFACE, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource(STATE, HGT_SURFACE, Label="HGT_SURFACE:", DEFAULT= HGT_SURFACE, _RC) ! Pointers to Imports !-------------------- - call MAPL_GetPointer(IMPORT, U, 'U' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, V, 'V' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, W, 'W' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, T, 'T' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, S, 'S' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, ZLE, 'ZLE' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, PLE, 'PLE' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, AREA, 'AREA' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, U, 'U' , _RC) + call MAPL_GetPointer(IMPORT, V, 'V' , _RC) + call MAPL_GetPointer(IMPORT, W, 'W' , _RC) + call MAPL_GetPointer(IMPORT, T, 'T' , _RC) + call MAPL_GetPointer(IMPORT, S, 'S' , _RC) + call MAPL_GetPointer(IMPORT, ZLE, 'ZLE' , _RC) + call MAPL_GetPointer(IMPORT, PLE, 'PLE' , _RC) + call MAPL_GetPointer(IMPORT, AREA, 'AREA' , _RC) allocate(DM(IM,JM,LM),stat=STATUS) VERIFY_(STATUS) @@ -2856,159 +2541,131 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Get fill negative export pointers if requested ! ---------------------------------------------- - call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_PHYS0', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_PHYS0', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_PHYS0', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_PHYS0', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_PHYS0', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_PHYS0', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_PHYS0', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_PHYS0', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_PHYS0', _RC) + call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_PHYS0', _RC) + call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_PHYS0', _RC) + call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_PHYS0', _RC) + call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_PHYS0', _RC) + call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_PHYS0', _RC) + call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_PHYS0', _RC) + call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_PHYS0', _RC) ! Cleanup negative water species ! ------------------------------ - call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV Before Physics" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS Before Physics", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN Before Physics", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS Before Physics", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN Before Physics", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR Before Physics" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS Before Physics" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG Before Physics" , VM=VMG, RC=STATUS); VERIFY_(STATUS) + call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV Before Physics" , VM=VMG, _RC) + call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS Before Physics", VM=VMG, _RC) + call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN Before Physics", VM=VMG, _RC) + call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS Before Physics", VM=VMG, _RC) + call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN Before Physics", VM=VMG, _RC) + call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR Before Physics" , VM=VMG, _RC) + call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS Before Physics" , VM=VMG, _RC) + call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG Before Physics" , VM=VMG, _RC) ! Initialize Passive Tracer QW ! ---------------------------- - call MAPL_GetPointer(INTERNAL, QW, 'QW', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, QW, 'QW', _RC) QW = QV+QLLS+QLCN+QILS+QICN+QRAIN+QSNOW+QGRAUPEL ! Pointers to Exports !-------------------- - call MAPL_GetPointer(EXPORT, DUDT, 'DUDT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DVDT, 'DVDT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DWDT, 'DWDT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DTDT, 'DTDT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DTDTTOT, 'DTDTTOT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DTDTRAD, 'DTDTRAD' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DPDTPHY, 'DPDTPHY' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DPDT, 'DPEDT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DMDT, 'DMDT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TIT, 'TIT' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TIM, 'TIM' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TIMFRIC, 'TIMFRIC' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TIF, 'TIF' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FTU, 'FTU' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, FTV, 'FTV' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KEPHY, 'KEPHY' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PEPHY, 'PEPHY' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PERAD, 'PERAD' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PETRB, 'PETRB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PEMST, 'PEMST' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PEFRI, 'PEFRI' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PEGWD, 'PEGWD' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PECUF, 'PECUF' , RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, DQVDTMSTINT, 'DQVDTMSTINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLDTMSTINT, 'DQLDTMSTINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQIDTMSTINT, 'DQIDTMSTINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQRDTMSTINT, 'DQRDTMSTINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQSDTMSTINT, 'DQSDTMSTINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQGDTMSTINT, 'DQGDTMSTINT', RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, DQVDTTRBINT, 'DQVDTTRBINT', RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, DQVDTCHMINT, 'DQVDTCHMINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DOXDTCHMINT, 'DOXDTCHMINT', RC=STATUS); VERIFY_(STATUS) - - call MAPL_GetPointer(EXPORT, DQVDTPHYINT, 'DQVDTPHYINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLDTPHYINT, 'DQLDTPHYINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQIDTPHYINT, 'DQIDTPHYINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQRDTPHYINT, 'DQRDTPHYINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQSDTPHYINT, 'DQSDTPHYINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQGDTPHYINT, 'DQGDTPHYINT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DOXDTPHYINT, 'DOXDTPHYINT', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, DUDT, 'DUDT' , _RC) + call MAPL_GetPointer(EXPORT, DVDT, 'DVDT' , _RC) + call MAPL_GetPointer(EXPORT, DWDT, 'DWDT' , _RC) + call MAPL_GetPointer(EXPORT, DTDT, 'DTDT' , _RC) + call MAPL_GetPointer(EXPORT, DTDTTOT, 'DTDTTOT' , _RC) + call MAPL_GetPointer(EXPORT, DTDTRAD, 'DTDTRAD' , _RC) + call MAPL_GetPointer(EXPORT, DPDTPHY, 'DPDTPHY' , _RC) + call MAPL_GetPointer(EXPORT, DPDT, 'DPEDT' , _RC) + call MAPL_GetPointer(EXPORT, DMDT, 'DMDT' , _RC) + call MAPL_GetPointer(EXPORT, TIT, 'TIT' , _RC) + call MAPL_GetPointer(EXPORT, TIM, 'TIM' , _RC) + call MAPL_GetPointer(EXPORT, TIMFRIC, 'TIMFRIC' , _RC) + call MAPL_GetPointer(EXPORT, TIF, 'TIF' , _RC) + call MAPL_GetPointer(EXPORT, FTU, 'FTU' , _RC) + call MAPL_GetPointer(EXPORT, FTV, 'FTV' , _RC) + call MAPL_GetPointer(EXPORT, KEPHY, 'KEPHY' , _RC) + call MAPL_GetPointer(EXPORT, PEPHY, 'PEPHY' , _RC) + call MAPL_GetPointer(EXPORT, PERAD, 'PERAD' , _RC) + call MAPL_GetPointer(EXPORT, PETRB, 'PETRB' , _RC) + call MAPL_GetPointer(EXPORT, PEMST, 'PEMST' , _RC) + call MAPL_GetPointer(EXPORT, PEFRI, 'PEFRI' , _RC) + call MAPL_GetPointer(EXPORT, PEGWD, 'PEGWD' , _RC) + call MAPL_GetPointer(EXPORT, PECUF, 'PECUF' , _RC) + + call MAPL_GetPointer(EXPORT, DQVDTMSTINT, 'DQVDTMSTINT', _RC) + call MAPL_GetPointer(EXPORT, DQLDTMSTINT, 'DQLDTMSTINT', _RC) + call MAPL_GetPointer(EXPORT, DQIDTMSTINT, 'DQIDTMSTINT', _RC) + call MAPL_GetPointer(EXPORT, DQRDTMSTINT, 'DQRDTMSTINT', _RC) + call MAPL_GetPointer(EXPORT, DQSDTMSTINT, 'DQSDTMSTINT', _RC) + call MAPL_GetPointer(EXPORT, DQGDTMSTINT, 'DQGDTMSTINT', _RC) + + call MAPL_GetPointer(EXPORT, DQVDTTRBINT, 'DQVDTTRBINT', _RC) + + call MAPL_GetPointer(EXPORT, DQVDTCHMINT, 'DQVDTCHMINT', _RC) + call MAPL_GetPointer(EXPORT, DOXDTCHMINT, 'DOXDTCHMINT', _RC) + + call MAPL_GetPointer(EXPORT, DQVDTPHYINT, 'DQVDTPHYINT', _RC) + call MAPL_GetPointer(EXPORT, DQLDTPHYINT, 'DQLDTPHYINT', _RC) + call MAPL_GetPointer(EXPORT, DQIDTPHYINT, 'DQIDTPHYINT', _RC) + call MAPL_GetPointer(EXPORT, DQRDTPHYINT, 'DQRDTPHYINT', _RC) + call MAPL_GetPointer(EXPORT, DQSDTPHYINT, 'DQSDTPHYINT', _RC) + call MAPL_GetPointer(EXPORT, DQGDTPHYINT, 'DQGDTPHYINT', _RC) + call MAPL_GetPointer(EXPORT, DOXDTPHYINT, 'DOXDTPHYINT', _RC) ! Get and allocate pointers to Exports that have been put in turbulence ! bundle, as well as the required tendencies in the children`s exports. !------------------------------------------------------------------------ if(associated(DUDT)) then - call MAPL_GetPointer(EXPORT , UIT, 'UIT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(GEX(MOIST) , UIM, 'DUDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(GEX(GWD) , UIG, 'DUDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT , UIT, 'UIT', alloc=.true., _RC) + call MAPL_GetPointer(GEX(MOIST) , UIM, 'DUDT', alloc=.true., _RC) + call MAPL_GetPointer(GEX(GWD) , UIG, 'DUDT', alloc=.true., _RC) end if if(associated(DVDT)) then - call MAPL_GetPointer(EXPORT , VIT, 'VIT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(GEX(MOIST) , VIM, 'DVDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(GEX(GWD) , VIG, 'DVDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT , VIT, 'VIT', alloc=.true., _RC) + call MAPL_GetPointer(GEX(MOIST) , VIM, 'DVDT', alloc=.true., _RC) + call MAPL_GetPointer(GEX(GWD) , VIG, 'DVDT', alloc=.true., _RC) end if if(associated(DWDT)) then - call MAPL_GetPointer(GEX(MOIST) , WIM, 'DWDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(GEX(MOIST) , WIM, 'DWDT', alloc=.true., _RC) end if if(associated(DTDT) .or. associated(TIM) .or. associated(DTDTTOT)) then - call MAPL_GetPointer(GEX(MOIST) , TTN, 'DTDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(GEX(MOIST) , TTN, 'DTDT', alloc=.true., _RC) end if if(associated(DTDT) .or. associated(TIT) .or. associated(DTDTTOT)) then - call MAPL_GetPointer(EXPORT , SIT, 'SIT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT , SIT, 'SIT', alloc=.true., _RC) end if if(associated(DTDT) .or. associated(DTDTRAD) .or. associated(DTDTTOT)) then - call MAPL_GetPointer(GEX(RAD ) , TIR, 'DTDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(GEX(RAD ) , TIR, 'DTDT', alloc=.true., _RC) end if if(associated(DTDT) .or. associated(TIF) .or. associated(DTDTTOT)) then - call MAPL_GetPointer(GEX(TURBL), INTDIS, 'INTDIS', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(GEX(TURBL), TOPDIS, 'TOPDIS', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(GEX(TURBL), SRFDIS, 'SRFDIS', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(GEX(GWD ) , TIG, 'DTDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(GEX(MOIST), TICU,'DTDTFRIC', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(GEX(TURBL), INTDIS, 'INTDIS', alloc=.true., _RC) + call MAPL_GetPointer(GEX(TURBL), TOPDIS, 'TOPDIS', alloc=.true., _RC) + call MAPL_GetPointer(GEX(TURBL), SRFDIS, 'SRFDIS', alloc=.true., _RC) + call MAPL_GetPointer(GEX(GWD ) , TIG, 'DTDT', alloc=.true., _RC) + call MAPL_GetPointer(GEX(MOIST), TICU,'DTDTFRIC', alloc=.true., _RC) end if - call MAPL_GetPointer ( EXPORT, DQVDTTRB, 'QVIT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, DQLDTTRB, 'QLLSIT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, DQIDTTRB, 'QILSIT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( EXPORT, TKEIT, 'TKESHOCIT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(TURBL), DPDTTRB , 'DPDTTRB', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), DPDTMST , 'DPDTMST', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), DQVDTMST, 'DQDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(CHEM), DQVDTCHM, 'H2O_TEND', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), DQLDTMST, 'DQLDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), DQIDTMST, 'DQIDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), DQRDTMST, 'DQRDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), DQSDTMST, 'DQSDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), DQGDTMST, 'DQGDT', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer ( EXPORT, DQVDTTRB, 'QVIT', alloc=.true., _RC) + call MAPL_GetPointer ( EXPORT, DQLDTTRB, 'QLLSIT', alloc=.true., _RC) + call MAPL_GetPointer ( EXPORT, DQIDTTRB, 'QILSIT', alloc=.true., _RC) + call MAPL_GetPointer ( EXPORT, TKEIT, 'TKESHOCIT', alloc=.true., _RC) + call MAPL_GetPointer ( GEX(TURBL), DPDTTRB , 'DPDTTRB', alloc=.true., _RC) + call MAPL_GetPointer ( GEX(MOIST), DPDTMST , 'DPDTMST', alloc=.true., _RC) + call MAPL_GetPointer ( GEX(MOIST), DQVDTMST, 'DQDT', alloc=.true., _RC) + call MAPL_GetPointer ( GEX(CHEM), DQVDTCHM, 'H2O_TEND', alloc=.true., _RC) + call MAPL_GetPointer ( GEX(MOIST), DQLDTMST, 'DQLDT', alloc=.true., _RC) + call MAPL_GetPointer ( GEX(MOIST), DQIDTMST, 'DQIDT', alloc=.true., _RC) + call MAPL_GetPointer ( GEX(MOIST), DQRDTMST, 'DQRDT', alloc=.true., _RC) + call MAPL_GetPointer ( GEX(MOIST), DQSDTMST, 'DQSDT', alloc=.true., _RC) + call MAPL_GetPointer ( GEX(MOIST), DQGDTMST, 'DQGDT', alloc=.true., _RC) ! Pass Turbulence QL, QI tendencies to Moist Import state call MAPL_GetPointer ( GIM(MOIST), DQLMST, 'DQLDTTRB', RC=STATUS) @@ -3016,48 +2673,30 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) call MAPL_GetPointer ( GIM(MOIST), DQIMST, 'DQLDTTRB', RC=STATUS) DQIMST = DQIDTTRB - call MAPL_GetPointer (EXPORT, DQVDTSCL, 'DQVDTSCL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DQLDTSCL, 'DQLDTSCL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DQIDTSCL, 'DQIDTSCL', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, DQVDTSCL, 'DQVDTSCL', _RC) + call MAPL_GetPointer (EXPORT, DQLDTSCL, 'DQLDTSCL', _RC) + call MAPL_GetPointer (EXPORT, DQIDTSCL, 'DQIDTSCL', _RC) if (DO_SPPT) then - call MAPL_GetPointer (EXPORT, RNDPTR, 'RNDPTR', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DTDTUNPERT, 'DTDTUNPERT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DUDTUNPERT, 'DUDTUNPERT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DVDTUNPERT, 'DVDTUNPERT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DQVDTUNPERT, 'DQVDTUNPERT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DQVDTPERT, 'DQVDTPERT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, QVUNPERT, 'QVUNPERT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, QVPERT, 'QVPERT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DUDTSTOCH, 'DUDTSTOCH', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DVDTSTOCH, 'DVDTSTOCH', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DTDTSTOCH, 'DTDTSTOCH', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, DQVDTSTOCH, 'DQVDTSTOCH', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, RNDPTR, 'RNDPTR', _RC) + call MAPL_GetPointer (EXPORT, DTDTUNPERT, 'DTDTUNPERT', _RC) + call MAPL_GetPointer (EXPORT, DUDTUNPERT, 'DUDTUNPERT', _RC) + call MAPL_GetPointer (EXPORT, DVDTUNPERT, 'DVDTUNPERT', _RC) + call MAPL_GetPointer (EXPORT, DQVDTUNPERT, 'DQVDTUNPERT', _RC) + call MAPL_GetPointer (EXPORT, DQVDTPERT, 'DQVDTPERT', _RC) + call MAPL_GetPointer (EXPORT, QVUNPERT, 'QVUNPERT', _RC) + call MAPL_GetPointer (EXPORT, QVPERT, 'QVPERT', _RC) + call MAPL_GetPointer (EXPORT, DUDTSTOCH, 'DUDTSTOCH', _RC) + call MAPL_GetPointer (EXPORT, DVDTSTOCH, 'DVDTSTOCH', _RC) + call MAPL_GetPointer (EXPORT, DTDTSTOCH, 'DTDTSTOCH', _RC) + call MAPL_GetPointer (EXPORT, DQVDTSTOCH, 'DQVDTSTOCH', _RC) endif if (DO_SKEB) then - call MAPL_GetPointer (EXPORT, SKEBU, 'SKEBU', alloc=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, SKEBV, 'SKEBV', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, SKEBU, 'SKEBU', alloc=.true., _RC) + call MAPL_GetPointer (EXPORT, SKEBV, 'SKEBV', alloc=.true., _RC) endif if(associated(DOXDTCHMINT)) then - call MAPL_GetPointer ( GEX(CHEM), DOXDTCHM, 'OX_TEND', alloc=.true., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(CHEM), DOXDTCHM, 'OX_TEND', alloc=.true., _RC) end if !---------------------- @@ -3086,9 +2725,9 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) t1 = MPI_Wtime(status); VERIFY_(STATUS) call ESMF_GridCompRun (GCS(I), importState=GIM(I), exportState=GEX(I), clock=CLOCK, userRC=STATUS ); VERIFY_(STATUS) t2 = MPI_Wtime(status); VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_GWD', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_GWD', _RC) if (associated(PTR2D)) PTR2D = t2-t1 - call MAPL_GenericRunCouplers (STATE, I, CLOCK, RC=STATUS ); VERIFY_(STATUS) + call MAPL_GenericRunCouplers (STATE, I, CLOCK, _RC) call MAPL_TimerOff(STATE,GCNames(I)) ! Moist Processes @@ -3103,32 +2742,32 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) t1 = MPI_Wtime(status); VERIFY_(STATUS) call ESMF_GridCompRun (GCS(I), importState=GIM(I), exportState=GEX(I), clock=CLOCK, userRC=STATUS ); VERIFY_(STATUS) t2 = MPI_Wtime(status); VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_MST', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_MST', _RC) if (associated(PTR2D)) PTR2D = t2-t1 - call MAPL_GenericRunCouplers (STATE, I, CLOCK, RC=STATUS ); VERIFY_(STATUS) + call MAPL_GenericRunCouplers (STATE, I, CLOCK, _RC) call MAPL_TimerOff(STATE,GCNames(I)) ! Get fill negative export pointers if requested ! ---------------------------------------------- - call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_AFMST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_AFMST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_AFMST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_AFMST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_AFMST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_AFMST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_AFMST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_AFMST', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_AFMST', _RC) + call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_AFMST', _RC) + call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_AFMST', _RC) + call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_AFMST', _RC) + call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_AFMST', _RC) + call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_AFMST', _RC) + call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_AFMST', _RC) + call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_AFMST', _RC) ! Cleanup negative water species ! ------------------------------ - call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV After Moist" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS After Moist", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN After Moist", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS After Moist", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN After Moist", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR After Moist" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS After Moist" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG After Moist" , VM=VMG, RC=STATUS); VERIFY_(STATUS) + call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV After Moist" , VM=VMG, _RC) + call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS After Moist", VM=VMG, _RC) + call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN After Moist", VM=VMG, _RC) + call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS After Moist", VM=VMG, _RC) + call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN After Moist", VM=VMG, _RC) + call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR After Moist" , VM=VMG, _RC) + call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS After Moist" , VM=VMG, _RC) + call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG After Moist" , VM=VMG, _RC) call MAPL_GetObjectFromGC ( GCS(I), CMETA, _RC) @@ -3139,23 +2778,23 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) !-------------------------------------- if ( SYNCUV.ge.1. ) then ! From Moist - call MAPL_GetPointer ( GEX(MOIST), UAFMOIST, 'UAFMOIST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), VAFMOIST, 'VAFMOIST', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(MOIST), UAFMOIST, 'UAFMOIST', _RC) + call MAPL_GetPointer ( GEX(MOIST), VAFMOIST, 'VAFMOIST', _RC) ! For SURF - call MAPL_GetPointer ( GIM(SURF), UFORSURF, 'UA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(SURF), VFORSURF, 'VA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(SURF), SPD4SURF, 'SPEED', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), UFORSURF, 'UA', _RC) + call MAPL_GetPointer ( GIM(SURF), VFORSURF, 'VA', _RC) + call MAPL_GetPointer ( GIM(SURF), SPD4SURF, 'SPEED', _RC) if ( HGT_SURFACE .gt. 0.0 ) then - call VertInterp(UFORSURF,UAFMOIST,-HGT,-HGT_SURFACE, rc=status); VERIFY_(STATUS) - call VertInterp(VFORSURF,VAFMOIST,-HGT,-HGT_SURFACE, rc=status); VERIFY_(STATUS) + call VertInterp(UFORSURF,UAFMOIST,-HGT,-HGT_SURFACE, _RC) + call VertInterp(VFORSURF,VAFMOIST,-HGT,-HGT_SURFACE, _RC) else UFORSURF = UAFMOIST(:,:,LM) VFORSURF = VAFMOIST(:,:,LM) endif SPD4SURF = SQRT( UFORSURF*UFORSURF + VFORSURF*VFORSURF ) ! For TURBL - call MAPL_GetPointer ( GIM(TURBL), UFORTURB, 'U', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(TURBL), VFORTURB, 'V', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(TURBL), UFORTURB, 'U', _RC) + call MAPL_GetPointer ( GIM(TURBL), VFORTURB, 'V', _RC) UFORTURB = UAFMOIST VFORTURB = VAFMOIST endif @@ -3163,41 +2802,41 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) ! SYNCTQ - Stage 1 SYNC of T/Q and U/V !-------------------------------------- if ( SYNCTQ.ge.1. ) then - call MAPL_GetPointer(GIM(MOIST), DTDT_BL, 'DTDT_BL', alloc = .true. ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(GIM(MOIST), DQDT_BL, 'DQDT_BL', alloc = .true. ,RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(GIM(MOIST), DTDT_BL, 'DTDT_BL', alloc = .true. ,_RC) + call MAPL_GetPointer(GIM(MOIST), DQDT_BL, 'DQDT_BL', alloc = .true. ,_RC) ! From Moist - call MAPL_GetPointer ( GEX(MOIST), TAFMOIST, 'TAFMOIST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), THAFMOIST, 'THAFMOIST', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), QAFMOIST, 'QAFMOIST', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(MOIST), TAFMOIST, 'TAFMOIST', _RC) + call MAPL_GetPointer ( GEX(MOIST), THAFMOIST, 'THAFMOIST', _RC) + call MAPL_GetPointer ( GEX(MOIST), QAFMOIST, 'QAFMOIST', _RC) ! Boundary Layer Tendencies for GF DTDT_BL=TAFMOIST DQDT_BL=QV ! For SURF - call MAPL_GetPointer ( GIM(SURF), TFORSURF, 'TA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(SURF), QFORSURF, 'QA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(SURF), SPD4SURF, 'SPEED', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), TFORSURF, 'TA', _RC) + call MAPL_GetPointer ( GIM(SURF), QFORSURF, 'QA', _RC) + call MAPL_GetPointer ( GIM(SURF), SPD4SURF, 'SPEED', _RC) if ( HGT_SURFACE .gt. 0.0 ) then - call VertInterp(TFORSURF,TAFMOIST,-HGT,-HGT_SURFACE, rc=status); VERIFY_(STATUS) - call VertInterp(QFORSURF,QAFMOIST,-HGT,-HGT_SURFACE, positive_definite=.true., rc=status); VERIFY_(STATUS) + call VertInterp(TFORSURF,TAFMOIST,-HGT,-HGT_SURFACE, _RC) + call VertInterp(QFORSURF,QAFMOIST,-HGT,-HGT_SURFACE, positive_definite=.true., _RC) else TFORSURF = TAFMOIST(:,:,LM) QFORSURF = QAFMOIST(:,:,LM) endif ! For CHEM if ( SYNCTQ.eq.1. ) then - call MAPL_GetPointer ( GIM(CHEM), TFORCHEM, 'T', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(CHEM), THFORCHEM, 'TH', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(CHEM), TFORCHEM, 'T', _RC) + call MAPL_GetPointer ( GIM(CHEM), THFORCHEM, 'TH', _RC) TFORCHEM = TAFMOIST THFORCHEM = THAFMOIST endif ! For TURBL - call MAPL_GetPointer ( GIM(TURBL), TFORTURB, 'T', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(TURBL), THFORTURB, 'TH', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(TURBL), TFORTURB, 'T', _RC) + call MAPL_GetPointer ( GIM(TURBL), THFORTURB, 'TH', _RC) TFORTURB = TAFMOIST THFORTURB = THAFMOIST - call ESMF_StateGet(GIM(TURBL), 'TR', BUNDLE, RC=STATUS ); VERIFY_(STATUS) - call ESMFL_BundleGetPointerToData(BUNDLE,'S',SFORTURB, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(MOIST), SAFMOIST, 'SAFMOIST', RC=STATUS); VERIFY_(STATUS) + call ESMF_StateGet(GIM(TURBL), 'TR', BUNDLE, _RC) + call ESMFL_BundleGetPointerToData(BUNDLE,'S',SFORTURB, _RC) + call MAPL_GetPointer ( GEX(MOIST), SAFMOIST, 'SAFMOIST', _RC) SFORTURB = SAFMOIST endif @@ -3213,19 +2852,19 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) call MAPL_MaxMin('SYNCTQ: UFORSURF', UFORSURF) call MAPL_MaxMin('SYNCTQ: VFORSURF', VFORSURF) endif - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'TPREC', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'TPREC', _RC) call MAPL_MaxMin('SYNCTQ: TPREC ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'CN_PRCP', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'CN_PRCP', _RC) call MAPL_MaxMin('SYNCTQ: CN_PRCP ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'PCU', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'PCU', _RC) call MAPL_MaxMin('SYNCTQ: PCU ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'PLS', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'PLS', _RC) call MAPL_MaxMin('SYNCTQ: PLS ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'SNO', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'SNO', _RC) call MAPL_MaxMin('SYNCTQ: SNO ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'ICE', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'ICE', _RC) call MAPL_MaxMin('SYNCTQ: ICE ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'FRZR', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'FRZR', _RC) call MAPL_MaxMin('SYNCTQ: FRZR ', PTR2D) endif @@ -3238,7 +2877,7 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) t1 = MPI_Wtime(status); VERIFY_(STATUS) call ESMF_GridCompRun (GCS(I), importState=GIM(I), exportState=GEX(I), clock=CLOCK, PHASE=1, userRC=STATUS ); VERIFY_(STATUS) t2 = MPI_Wtime(status); VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_SFC', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_SFC', _RC) if (associated(PTR2D)) PTR2D = t2-t1 call MAPL_TimerOff(STATE,GCNames(I)) @@ -3251,9 +2890,9 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) t1 = MPI_Wtime(status); VERIFY_(STATUS) call ESMF_GridCompRun (GCS(I), importState=GIM(I), exportState=GEX(I), clock=CLOCK, phase=1, userRC=STATUS ); VERIFY_(STATUS) t2 = MPI_Wtime(status); VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_CHM', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_CHM', _RC) if (associated(PTR2D)) PTR2D = t2-t1 - call MAPL_GenericRunCouplers (STATE, I, CLOCK, RC=STATUS ); VERIFY_(STATUS) + call MAPL_GenericRunCouplers (STATE, I, CLOCK, _RC) call MAPL_TimerOff(STATE,GCNames(I)) ! Turbulence Stage 1 @@ -3265,54 +2904,54 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) t1 = MPI_Wtime(status); VERIFY_(STATUS) call ESMF_GridCompRun (GCS(I), importState=GIM(I), exportState=GEX(I), clock=CLOCK, PHASE=1, userRC=STATUS ); VERIFY_(STATUS) t2 = MPI_Wtime(status); VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_TRB', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_TRB', _RC) if (associated(PTR2D)) PTR2D = t2-t1 call MAPL_TimerOff(STATE,GCNames(I)) ! Get fill negative export pointers if requested ! ---------------------------------------------- - call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_AFSTG1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_AFSTG1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_AFSTG1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_AFSTG1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_AFSTG1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_AFSTG1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_AFSTG1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_AFSTG1', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_AFSTG1', _RC) + call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_AFSTG1', _RC) + call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_AFSTG1', _RC) + call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_AFSTG1', _RC) + call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_AFSTG1', _RC) + call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_AFSTG1', _RC) + call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_AFSTG1', _RC) + call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_AFSTG1', _RC) ! Cleanup negative water species ! ------------------------------ - call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV After Stage1" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS After Stage1", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN After Stage1", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS After Stage1", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN After Stage1", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR After Stage1" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS After Stage1" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG After Stage1" , VM=VMG, RC=STATUS); VERIFY_(STATUS) + call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV After Stage1" , VM=VMG, _RC) + call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS After Stage1", VM=VMG, _RC) + call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN After Stage1", VM=VMG, _RC) + call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS After Stage1", VM=VMG, _RC) + call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN After Stage1", VM=VMG, _RC) + call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR After Stage1" , VM=VMG, _RC) + call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS After Stage1" , VM=VMG, _RC) + call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG After Stage1" , VM=VMG, _RC) ! SYNCUV - Stage 2 SYNC of U/V !-------------------------------------- if ( SYNCUV.ge.1. ) then ! From TURBL Run 1 - call MAPL_GetPointer ( GEX(TURBL), UAFDIFFUSE, 'UAFDIFFUSE', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GEX(TURBL), VAFDIFFUSE, 'VAFDIFFUSE', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(TURBL), UAFDIFFUSE, 'UAFDIFFUSE', _RC) + call MAPL_GetPointer ( GEX(TURBL), VAFDIFFUSE, 'VAFDIFFUSE', _RC) ! For TURBL - call MAPL_GetPointer ( GIM(TURBL), UFORTURB, 'U', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(TURBL), VFORTURB, 'V', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(TURBL), UFORTURB, 'U', _RC) + call MAPL_GetPointer ( GIM(TURBL), VFORTURB, 'V', _RC) UFORTURB = UAFDIFFUSE VFORTURB = VAFDIFFUSE ! For SURF - call MAPL_GetPointer ( GIM(SURF), UFORSURF, 'UA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(SURF), VFORSURF, 'VA', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), UFORSURF, 'UA', _RC) + call MAPL_GetPointer ( GIM(SURF), VFORSURF, 'VA', _RC) if ( HGT_SURFACE .gt. 0.0 ) then - call VertInterp(UFORSURF,UAFDIFFUSE,-HGT,-HGT_SURFACE, rc=status); VERIFY_(STATUS) - call VertInterp(VFORSURF,VAFDIFFUSE,-HGT,-HGT_SURFACE, rc=status); VERIFY_(STATUS) + call VertInterp(UFORSURF,UAFDIFFUSE,-HGT,-HGT_SURFACE, _RC) + call VertInterp(VFORSURF,VAFDIFFUSE,-HGT,-HGT_SURFACE, _RC) else UFORSURF = UAFDIFFUSE(:,:,LM) VFORSURF = VAFDIFFUSE(:,:,LM) endif - call MAPL_GetPointer ( GIM(SURF), SPD4SURF, 'SPEED', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), SPD4SURF, 'SPEED', _RC) SPD4SURF = SQRT( UFORSURF*UFORSURF + VFORSURF*VFORSURF ) endif @@ -3320,14 +2959,14 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) !-------------------------------------- if ( SYNCTQ.ge.1. ) then ! For TURBL - call MAPL_GetPointer ( GEX(TURBL), SAFDIFFUSE, 'SAFDIFFUSE', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(TURBL), TFORTURB, 'T', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(TURBL), THFORTURB, 'TH', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(TURBL), SAFDIFFUSE, 'SAFDIFFUSE', _RC) + call MAPL_GetPointer ( GIM(TURBL), TFORTURB, 'T', _RC) + call MAPL_GetPointer ( GIM(TURBL), THFORTURB, 'TH', _RC) ! For Stage 2 - Changes in S from TURBL assumed to be all in T TFORTURB = (SAFDIFFUSE - MAPL_GRAV*0.5*(ZLE(:,:,1:LM)+ZLE(:,:,0:LM-1)))/MAPL_CP THFORTURB = TFORTURB/PK - call ESMF_StateGet(GIM(TURBL), 'TR', BUNDLE, RC=STATUS ); VERIFY_(STATUS) - call ESMFL_BundleGetPointerToData(BUNDLE,'S',SFORTURB, RC=STATUS); VERIFY_(STATUS) + call ESMF_StateGet(GIM(TURBL), 'TR', BUNDLE, _RC) + call ESMFL_BundleGetPointerToData(BUNDLE,'S',SFORTURB, _RC) if (DEBUG_SYNCTQ) then call MAPL_MaxMin('DEBUG S: S_FRM_TURB', SFORTURB) call MAPL_MaxMin('DEBUG S: SAFDIFFUSE', SAFDIFFUSE) @@ -3337,11 +2976,11 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) call MAPL_MaxMin('DEBUG S: SFORTURB', SFORTURB) endif ! For SURF - call MAPL_GetPointer ( GIM(SURF), TFORSURF, 'TA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(SURF), QFORSURF, 'QA', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), TFORSURF, 'TA', _RC) + call MAPL_GetPointer ( GIM(SURF), QFORSURF, 'QA', _RC) if ( HGT_SURFACE .gt. 0.0 ) then - call VertInterp(TFORSURF,TFORTURB,-HGT,-HGT_SURFACE, rc=status); VERIFY_(STATUS) - call VertInterp(QFORSURF,QV ,-HGT,-HGT_SURFACE, positive_definite=.true., rc=status); VERIFY_(STATUS) + call VertInterp(TFORSURF,TFORTURB,-HGT,-HGT_SURFACE, _RC) + call VertInterp(QFORSURF,QV ,-HGT,-HGT_SURFACE, positive_definite=.true., _RC) else TFORSURF = TFORTURB(:,:,LM) QFORSURF = QV(:,:,LM) @@ -3358,19 +2997,19 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) call MAPL_MaxMin('SYNCTQ: UFORSURF', UFORSURF) call MAPL_MaxMin('SYNCTQ: VFORSURF', VFORSURF) endif - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'TPREC', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'TPREC', _RC) call MAPL_MaxMin('SYNCTQ: TPREC ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'CN_PRCP', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'CN_PRCP', _RC) call MAPL_MaxMin('SYNCTQ: CN_PRCP ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'PCU', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'PCU', _RC) call MAPL_MaxMin('SYNCTQ: PCU ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'PLS', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'PLS', _RC) call MAPL_MaxMin('SYNCTQ: PLS ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'SNO', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'SNO', _RC) call MAPL_MaxMin('SYNCTQ: SNO ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'ICE', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'ICE', _RC) call MAPL_MaxMin('SYNCTQ: ICE ', PTR2D) - call MAPL_GetPointer ( GIM(SURF), PTR2D, 'FRZR', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(SURF), PTR2D, 'FRZR', _RC) call MAPL_MaxMin('SYNCTQ: FRZR ', PTR2D) endif @@ -3383,9 +3022,9 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) t1 = MPI_Wtime(status); VERIFY_(STATUS) call ESMF_GridCompRun (GCS(I), importState=GIM(I), exportState=GEX(I), clock=CLOCK, PHASE=2, userRC=STATUS ); VERIFY_(STATUS) t2 = MPI_Wtime(status); VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_SFC', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_SFC', _RC) if (associated(PTR2D)) PTR2D = PTR2D + t2-t1 - call MAPL_GenericRunCouplers (STATE, I, CLOCK, RC=STATUS ); VERIFY_(STATUS) + call MAPL_GenericRunCouplers (STATE, I, CLOCK, _RC) call MAPL_TimerOff(STATE,GCNames(I)) ! Turbulence Stage 2 @@ -3397,40 +3036,40 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) t1 = MPI_Wtime(status); VERIFY_(STATUS) call ESMF_GridCompRun (GCS(I), importState=GIM(I), exportState=GEX(I), clock=CLOCK, PHASE=2, userRC=STATUS ); VERIFY_(STATUS) t2 = MPI_Wtime(status); VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_TRB', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_TRB', _RC) if (associated(PTR2D)) PTR2D = PTR2D + t2-t1 - call MAPL_GenericRunCouplers (STATE, I, CLOCK, RC=STATUS ); VERIFY_(STATUS) + call MAPL_GenericRunCouplers (STATE, I, CLOCK, _RC) call MAPL_TimerOff(STATE,GCNames(I)) ! Get fill negative export pointers if requested ! ---------------------------------------------- - call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_AFSTG2', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_AFSTG2', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_AFSTG2', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_AFSTG2', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_AFSTG2', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_AFSTG2', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_AFSTG2', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_AFSTG2', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_AFSTG2', _RC) + call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_AFSTG2', _RC) + call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_AFSTG2', _RC) + call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_AFSTG2', _RC) + call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_AFSTG2', _RC) + call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_AFSTG2', _RC) + call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_AFSTG2', _RC) + call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_AFSTG2', _RC) ! Cleanup negative water species ! ------------------------------ - call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV After Stage2" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS After Stage2", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN After Stage2", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS After Stage2", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN After Stage2", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR After Stage2" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS After Stage2" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG After Stage2" , VM=VMG, RC=STATUS); VERIFY_(STATUS) + call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV After Stage2" , VM=VMG, _RC) + call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS After Stage2", VM=VMG, _RC) + call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN After Stage2", VM=VMG, _RC) + call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS After Stage2", VM=VMG, _RC) + call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN After Stage2", VM=VMG, _RC) + call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR After Stage2" , VM=VMG, _RC) + call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS After Stage2" , VM=VMG, _RC) + call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG After Stage2" , VM=VMG, _RC) if ( SYNCTQ.ge.1. ) then ! For RAD - call MAPL_GetPointer ( GIM(RAD), TFORRAD, 'T', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(RAD), TFORRAD, 'T', _RC) ! For Stage 2 - Changes in S from TURBL assumed to be all in T - call MAPL_GetPointer ( GEX(TURBL), SAFUPDATE, 'SAFUPDATE', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(TURBL), SAFUPDATE, 'SAFUPDATE', _RC) TFORRAD = (SAFUPDATE - MAPL_GRAV*0.5*(ZLE(:,:,1:LM)+ZLE(:,:,0:LM-1)))/MAPL_CP - call ESMFL_BundleGetPointerToData(BUNDLE,'S',SFORTURB, RC=STATUS); VERIFY_(STATUS) + call ESMFL_BundleGetPointerToData(BUNDLE,'S',SFORTURB, _RC) if (DEBUG_SYNCTQ) then call MAPL_MaxMin('DEBUG S: S_FRM_TURB', SFORTURB) call MAPL_MaxMin('DEBUG S: SAFUPDATE', SAFUPDATE) @@ -3441,8 +3080,8 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) endif ! For CHEM use the same T as RAD if ( SYNCTQ.eq.1. ) then - call MAPL_GetPointer ( GIM(CHEM), TFORCHEM, 'T', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(CHEM), THFORCHEM, 'TH', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(CHEM), TFORCHEM, 'T', _RC) + call MAPL_GetPointer ( GIM(CHEM), THFORCHEM, 'TH', _RC) TFORCHEM = TFORRAD THFORCHEM = TFORRAD/PK endif @@ -3483,9 +3122,9 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) t1 = MPI_Wtime(status); VERIFY_(STATUS) call ESMF_GridCompRun (GCS(I), importState=GIM(I), exportState=GEX(I), clock=CLOCK, PHASE=2, userRC=STATUS ); VERIFY_(STATUS) t2 = MPI_Wtime(status); VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_CHM', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_CHM', _RC) if (associated(PTR2D)) PTR2D = PTR2D + t2-t1 - call MAPL_GenericRunCouplers (STATE, I, CLOCK, RC=STATUS ); VERIFY_(STATUS) + call MAPL_GenericRunCouplers (STATE, I, CLOCK, _RC) call MAPL_TimerOff(STATE,GCNames(I)) ! Radiation @@ -3497,9 +3136,9 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) t1 = MPI_Wtime(status); VERIFY_(STATUS) call ESMF_GridCompRun (GCS(I), importState=GIM(I), exportState=GEX(I), clock=CLOCK, userRC=STATUS ); VERIFY_(STATUS) t2 = MPI_Wtime(status); VERIFY_(STATUS) - call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_RAD', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer (EXPORT, PTR2D, 'TIME_IN_RAD', _RC) if (associated(PTR2D)) PTR2D = t2-t1 - call MAPL_GenericRunCouplers (STATE, I, CLOCK, RC=STATUS ); VERIFY_(STATUS) + call MAPL_GenericRunCouplers (STATE, I, CLOCK, _RC) call MAPL_TimerOff(STATE,GCNames(I)) if (DEBUG_SYNCTQ) then @@ -3524,8 +3163,7 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) allocate(RNDPERT(IM,JM,LM),stat=STATUS) VERIFY_(STATUS) RNDPERT = 0. - call MAPL_GetPointer ( GIM(GWD), PREF, 'PREF', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(GWD), PREF, 'PREF', _RC) call sppt_pattern(CF,grid,RNDPERT,PREF,IM,JM,LM,DT) if( associated(RNDPTR) ) RNDPTR = RNDPERT endif @@ -3536,8 +3174,7 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) allocate(SKEBV_WT(IM,JM,LM),stat=STATUS) VERIFY_(STATUS) - call MAPL_GetPointer ( GIM(GWD), PREF, 'PREF', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer ( GIM(GWD), PREF, 'PREF', _RC) SKEBU_WT = 0. ; SKEBV_WT = 0. call skeb_pattern(CF,grid,SKEBU_WT,SKEBV_WT,PREF,IM,JM,LM,DT) @@ -3649,18 +3286,18 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) end if if (DEBUG_SYNCTQ) then - call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADLW', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADLW', _RC) if (associated(PTR3D)) call MAPL_MaxMin('RAD: LW ', TDPOLD*DPI + DT*PTR3D) - call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADLWC', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADLWC', _RC) if (associated(PTR3D)) call MAPL_MaxMin('RAD: LWC ', TDPOLD*DPI + DT*PTR3D) - call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADLWNA', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADLWNA', _RC) if (associated(PTR3D)) call MAPL_MaxMin('RAD: LWNA', TDPOLD*DPI + DT*PTR3D) - call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADSW', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADSW', _RC) if (associated(PTR3D)) call MAPL_MaxMin('RAD: SW ', TDPOLD*DPI + DT*PTR3D) - call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADSWC', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADSWC', _RC) if (associated(PTR3D)) call MAPL_MaxMin('RAD: SWC ', TDPOLD*DPI + DT*PTR3D) - call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADSWNA', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer ( GEX(RAD), PTR3D, 'RADSWNA', _RC) if (associated(PTR3D)) call MAPL_MaxMin('RAD: SWNA', TDPOLD*DPI + DT*PTR3D) endif @@ -3755,25 +3392,25 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Get fill negative export pointers if requested ! ---------------------------------------------- - call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_PHYS1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_PHYS1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_PHYS1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_PHYS1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_PHYS1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_PHYS1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_PHYS1', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_PHYS1', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, DQVDT_FILL, 'DQVDT_FILL_PHYS1', _RC) + call MAPL_GetPointer(EXPORT, DQLLSDT_FILL, 'DQLLSDT_FILL_PHYS1', _RC) + call MAPL_GetPointer(EXPORT, DQLCNDT_FILL, 'DQLCNDT_FILL_PHYS1', _RC) + call MAPL_GetPointer(EXPORT, DQILSDT_FILL, 'DQILSDT_FILL_PHYS1', _RC) + call MAPL_GetPointer(EXPORT, DQICNDT_FILL, 'DQICNDT_FILL_PHYS1', _RC) + call MAPL_GetPointer(EXPORT, DQRDT_FILL, 'DQRDT_FILL_PHYS1', _RC) + call MAPL_GetPointer(EXPORT, DQSDT_FILL, 'DQSDT_FILL_PHYS1', _RC) + call MAPL_GetPointer(EXPORT, DQGDT_FILL, 'DQGDT_FILL_PHYS1', _RC) ! Cleanup negative water species ! ------------------------------ - call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV After Physics" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS After Physics", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN After Physics", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS After Physics", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN After Physics", VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR After Physics" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS After Physics" , VM=VMG, RC=STATUS); VERIFY_(STATUS) - call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG After Physics" , VM=VMG, RC=STATUS); VERIFY_(STATUS) + call FILLQ2ZERO( QV , DM, DT=DT, DQDT= DQVDT_FILL, WARNING_LABEL="QV After Physics" , VM=VMG, _RC) + call FILLQ2ZERO( QLLS , DM, DT=DT, DQDT=DQLLSDT_FILL, WARNING_LABEL="QLLS After Physics", VM=VMG, _RC) + call FILLQ2ZERO( QLCN , DM, DT=DT, DQDT=DQLCNDT_FILL, WARNING_LABEL="QLCN After Physics", VM=VMG, _RC) + call FILLQ2ZERO( QILS , DM, DT=DT, DQDT=DQILSDT_FILL, WARNING_LABEL="QILS After Physics", VM=VMG, _RC) + call FILLQ2ZERO( QICN , DM, DT=DT, DQDT=DQICNDT_FILL, WARNING_LABEL="QICN After Physics", VM=VMG, _RC) + call FILLQ2ZERO( QRAIN , DM, DT=DT, DQDT= DQRDT_FILL, WARNING_LABEL="QR After Physics" , VM=VMG, _RC) + call FILLQ2ZERO( QSNOW , DM, DT=DT, DQDT= DQSDT_FILL, WARNING_LABEL="QS After Physics" , VM=VMG, _RC) + call FILLQ2ZERO( QGRAUPEL, DM, DT=DT, DQDT= DQGDT_FILL, WARNING_LABEL="QG After Physics" , VM=VMG, _RC) ! Compute Total Water Mass Change due to Physics Sources and Sinks ! ---------------------------------------------------------------- @@ -3785,15 +3422,12 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) allocate( sumdq(IM,JM) ,STAT=STATUS ) ; VERIFY_(STATUS) allocate( dpe(IM,JM) ,STAT=STATUS ) ; VERIFY_(STATUS) - call ESMF_StateGet (EXPORT, 'TRADV', BUNDLE, RC=STATUS ) - VERIFY_(STATUS) - call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NQ, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_StateGet (EXPORT, 'TRADV', BUNDLE, _RC) + call ESMF_FieldBundleGet ( BUNDLE, fieldCount=NQ, _RC) allocate( NAMES(NQ),STAT=STATUS ) VERIFY_(STATUS) - call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, rc=STATUS ) - VERIFY_(STATUS) + call ESMF_FieldBundleGet ( BUNDLE, fieldNameList=NAMES, _RC) !Re-initialize water rescale increment bundle !---------------------------------------------- @@ -3816,8 +3450,7 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) ple_new(:,:,L) = ple_new(:,:,L) + dt*dpdt(:,:,L) dpe(:,:) = (ple(:,:,L)-ple(:,:,L-1)) / (ple_new(:,:,L)-ple_new(:,:,L-1)) do N=1,NQ - call ESMFL_BundleGetPointertoData( BUNDLE, trim(NAMES(N)), PTR3D, RC=STATUS) - VERIFY_(STATUS) + call ESMFL_BundleGetPointertoData( BUNDLE, trim(NAMES(N)), PTR3D, _RC) if( trim(NAMES(N)) /= 'CLCN' .and. & ! Exclude: Advected Convective and Large-Scale trim(NAMES(N)) /= 'CLLS' ) then ! -------- Cloud Fractions PTR3D(:,:,L) = PTR3d(:,:,L) * dpe(:,:) @@ -3965,8 +3598,7 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) elsewhere qdp_b4_int = MAPL_UNDEF end where - call MAPL_AreaMean( qdp_b4_ave, qdp_b4_int, area, grid, rc=STATUS ) - VERIFY_(STATUS) + call MAPL_AreaMean( qdp_b4_ave, qdp_b4_int, area, grid, _RC) ! Compute Area-Mean Vertically Integrated AF Water Mass ! ----------------------------------------------------- @@ -3976,8 +3608,7 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) elsewhere qdp_af_int = MAPL_UNDEF end where - call MAPL_AreaMean( qdp_af_ave, qdp_af_int, area, grid, rc=STATUS ) - VERIFY_(STATUS) + call MAPL_AreaMean( qdp_af_ave, qdp_af_int, area, grid, _RC) ! Compute Dry-Mass Scaling Parameter ! ---------------------------------- @@ -4147,8 +3778,8 @@ subroutine Run ( GC, IMPORT, EXPORT, CLOCK, RC ) end if if(SYNCTQ.eq.0.) then - call MAPL_GetPointer(GIM(MOIST), DTDT_BL, 'DTDT_BL', alloc = .true. ,RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(GIM(MOIST), DQDT_BL, 'DQDT_BL', alloc = .true. ,RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(GIM(MOIST), DTDT_BL, 'DTDT_BL', alloc = .true. ,_RC) + call MAPL_GetPointer(GIM(MOIST), DQDT_BL, 'DQDT_BL', alloc = .true. ,_RC) !- save 'boundary layer' tendencies of Q and T for the convection scheme DQDT_BL = DQVDTTRB DTDT_BL = 0. @@ -4275,13 +3906,11 @@ subroutine FILLQ2ZERO(Q, MASS, DT, DQDT, WARNING_LABEL, VM, RC) neg_count_local = count(Q < 0.0) total_count_local = size(Q) - call ESMF_VMGet(VM, localPet=RANK, rc=STATUS) - VERIFY_(STATUS) + call ESMF_VMGet(VM, localPet=RANK, _RC) call ESMF_VMAllReduce(VM, sendData=[neg_count_local,total_count_local], & recvData=I1D, count=2, & - reduceflag=ESMF_REDUCE_SUM, rc=STATUS) - VERIFY_(STATUS) + reduceflag=ESMF_REDUCE_SUM, _RC) if ((RANK == 0) .and. (I1D(1) > 0)) then write(*,'(A,A,A,2X,"Count: ",I0,"/",I0," (",F5.1,"%)")') & diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSturbulence_GridComp/GEOS_TurbulenceGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSturbulence_GridComp/GEOS_TurbulenceGridComp.F90 index f2d39b6ab..488cf394a 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSturbulence_GridComp/GEOS_TurbulenceGridComp.F90 +++ b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSturbulence_GridComp/GEOS_TurbulenceGridComp.F90 @@ -217,31 +217,24 @@ subroutine SetServices ( GC, RC ) ! --------------------------------------- Iam = 'SetServices' - call ESMF_GridCompGet( GC, CONFIG=CF, NAME=COMP_NAME, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_GridCompGet( GC, CONFIG=CF, NAME=COMP_NAME, _RC) Iam = trim(COMP_NAME) // Iam ! Get my MAPL_Generic state !-------------------------- - call MAPL_GetObjectFromGC ( GC, MAPL, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetObjectFromGC ( GC, MAPL, _RC) - call MAPL_GetResource( MAPL, DEBUG_TRB, Label="DEBUG_TRB:", default=.FALSE., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource( MAPL, DEBUG_TRB, Label="DEBUG_TRB:", default=.FALSE., _RC) - call MAPL_GetResource ( MAPL, DO_WAVES, Label="USE_WAVES:", DEFAULT=0, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource ( MAPL, DO_WAVES, Label="USE_WAVES:", DEFAULT=0, _RC) - call MAPL_GetResource ( MAPL, DO_SEA_SPRAY, Label="USE_SEA_SPRAY:", DEFAULT=0, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource ( MAPL, DO_SEA_SPRAY, Label="USE_SEA_SPRAY:", DEFAULT=0, _RC) ! Set the Run entry points ! ------------------------ - call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_RUN, Run1, RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_RUN, Run2, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_RUN, Run1, _RC) + call MAPL_GridCompSetEntryPoint ( GC, ESMF_METHOD_RUN, Run2, _RC) ! Get number of EDMF updrafts ! ---------------------------- @@ -262,8 +255,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'PHIS', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'AREA', & @@ -272,8 +264,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'PLE', & @@ -282,8 +273,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'ZLE', & @@ -292,8 +282,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'T', & @@ -302,8 +291,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'TH', & @@ -312,8 +300,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'QV', & @@ -322,8 +309,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'QLTOT', & @@ -332,8 +318,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'QITOT', & @@ -342,8 +327,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'QRTOT', & @@ -352,8 +336,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'QSTOT', & @@ -362,8 +345,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'QGTOT', & @@ -372,8 +354,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'FCLD', & @@ -382,8 +363,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'U', & @@ -392,8 +372,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'V', & @@ -402,8 +381,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'CT', & @@ -412,8 +390,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'CQ', & @@ -422,8 +399,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'CM', & @@ -432,8 +408,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'BSTAR', & @@ -442,8 +417,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'USTAR', & @@ -452,8 +426,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'Z0', & @@ -462,8 +435,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'Z0H', & @@ -472,8 +444,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'EIS', & @@ -482,8 +453,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'FRLAND', & @@ -492,8 +462,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'RADLW', & @@ -501,8 +470,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'RADLWC', & @@ -510,8 +478,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K s-1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'PREF', & @@ -520,8 +487,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsVertOnly, & VLOCATION = MAPL_VLocationEdge, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'VARFLT', & @@ -530,8 +496,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & @@ -543,8 +508,7 @@ subroutine SetServices ( GC, RC ) DATATYPE = MAPL_BundleItem, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'SHAT', & @@ -553,8 +517,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'UHAT', & @@ -563,8 +526,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'VHAT', & @@ -573,8 +535,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'QHAT', & @@ -583,8 +544,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'SDEL', & @@ -593,8 +553,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'UDEL', & @@ -603,8 +562,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'VDEL', & @@ -613,8 +571,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'QDEL', & @@ -623,8 +580,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & LONG_NAME = 'vertical_pressure_velocity', & @@ -632,8 +588,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'OMEGA', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'EVAP', & @@ -642,8 +597,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'SH', & @@ -651,8 +605,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) if (DO_WAVES/=0 .and. DO_SEA_SPRAY/=0) then call MAPL_AddImportSpec(GC, & @@ -663,8 +616,7 @@ subroutine SetServices ( GC, RC ) DEFAULT = 0.0, & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'LHFX_SPRAY', & @@ -674,8 +626,7 @@ subroutine SetServices ( GC, RC ) DEFAULT = 0.0, & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) end if call MAPL_AddImportSpec(GC, & @@ -684,8 +635,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DEFAULT = 0.0, & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'WQT_DC', & @@ -693,8 +643,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg kg-1 m s-1', & DEFAULT = 0.0, & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) if (SCM_SL /= 0) then call MAPL_AddImportSpec(GC, & @@ -703,8 +652,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddImportSpec(GC, & SHORT_NAME = 'LHOBS', & @@ -712,8 +660,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) end if @@ -729,8 +676,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DQRDT', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_snow_tendency', & @@ -738,8 +684,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DQSDT', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Vertical_velocity_of_individual_EDMF_plumes', & @@ -748,8 +693,7 @@ subroutine SetServices ( GC, RC ) UNGRIDDED_DIMS = (/NUMUP/), & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Liquid_water_potential_temperature_of_EDMF_plumes', & @@ -758,8 +702,7 @@ subroutine SetServices ( GC, RC ) UNGRIDDED_DIMS = (/NUMUP/), & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Total_water_of_individual_EDMF_plumes', & @@ -768,8 +711,7 @@ subroutine SetServices ( GC, RC ) UNGRIDDED_DIMS = (/NUMUP/), & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_dry_updraft_fractional_area', & @@ -777,8 +719,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DRY_A', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_total_updraft_fractional_area', & @@ -786,8 +727,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_FRC', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_moist_updraft_fractional_area', & @@ -795,8 +735,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_MOIST_A', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_vertical_velocity_of_dry_updrafts', & @@ -804,8 +743,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DRY_W', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_vertical_velocity_of_moist_updrafts', & @@ -813,8 +751,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_MOIST_W', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_total_water_of_dry_updrafts', & @@ -822,8 +759,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DRY_QT', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_total_water_of_moist_updrafts', & @@ -831,8 +767,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_MOIST_QT', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & @@ -841,8 +776,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_MOIST_QC', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Liquid_water_potential_temperature_of_dry_updrafts', & @@ -850,8 +784,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DRY_THL', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Liquid_water_potential_temperature_of_moist_updrafts', & @@ -859,8 +792,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_MOIST_THL', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_zonal_wind_of_dry_updrafts', & @@ -868,8 +800,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DRY_U', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_zonal_wind_of_moist_updrafts', & @@ -877,8 +808,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_MOIST_U', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_meridional_wind_of_dry_updrafts', & @@ -886,8 +816,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DRY_V', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_meridional_wind_of_moist_updrafts', & @@ -895,8 +824,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_MOIST_V', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_updraft_buoyancy_flux', & @@ -904,8 +832,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_BUOYF' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_updraft_total_water_flux', & @@ -913,8 +840,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_WQT' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Liquid_static_energy_flux_from_updrafts', & @@ -922,8 +848,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_WSL' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Updraft_turbulent_kinetic_energy', & @@ -931,8 +856,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_TKE' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Static_energy_total_water_covariance_from_updrafts', & @@ -940,8 +864,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_SLQT' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Vertical_velocity_variance_from_updrafts', & @@ -949,8 +872,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_W2' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Vertical_velocity_third_moment_from_updrafts', & @@ -958,8 +880,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_W3' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Total_water_third_moment_from_updrafts', & @@ -967,8 +888,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_QT3' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Liquid_static_energy_third_moment_from_updrafts', & @@ -976,8 +896,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_SL3' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'SLQT', & @@ -985,8 +904,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K', & DEFAULT = 0.0, & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Liquid_water_static_energy_variance', & @@ -994,8 +912,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'SL2' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! call MAPL_AddExportSpec(GC, & @@ -1031,8 +948,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'SL3' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Third_moment_of_vertical_velocity', & @@ -1040,8 +956,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'W3' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! call MAPL_AddExportSpec(GC, & ! LONG_NAME = 'Third_moment_of_vertical_velocity_Canuto_estimate', & @@ -1058,8 +973,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'W2' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Total_water_flux', & @@ -1067,8 +981,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'WQT' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Liquid_water_static_energy_flux', & @@ -1076,8 +989,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'WSL' , & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Monin_Obukhov_length', & @@ -1085,8 +997,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'LOBUKHOV', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mean_updraft_lateral_entrainment_rate', & @@ -1094,8 +1005,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_ENTR', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_plume_depth_for_entrainment', & @@ -1103,8 +1013,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DEPTH', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_mass_flux', & @@ -1112,8 +1021,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_MF', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_detrained_mass_flux', & @@ -1121,8 +1029,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EDMF_DMF', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_dry_static_energy_source_term', & @@ -1130,8 +1037,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'SSRCMF', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_specific_humidity_source_term', & @@ -1139,8 +1045,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'QVSRCMF', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_liquid_water_source_term', & @@ -1148,8 +1053,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'QLSRCMF', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'EDMF_ice_water_source_term', & @@ -1157,8 +1061,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'QISRCMF', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TRI', & @@ -1167,8 +1070,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & DATATYPE = MAPL_BundleItem, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'SFLX', & @@ -1176,8 +1078,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'W m-2',& DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'UFLX', & @@ -1185,8 +1086,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'N m-2',& DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'VFLX', & @@ -1194,8 +1094,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'N m-2',& DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'QFLX', & @@ -1203,8 +1102,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1',& DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'SDFL', & @@ -1212,8 +1110,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-1',& DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'UDFL', & @@ -1221,8 +1118,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'N s m-3',& DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'VDFL', & @@ -1230,8 +1126,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'N s m-3',& DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'QDFL', & @@ -1239,8 +1134,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg m-2 s-1',& DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! call MAPL_AddExportSpec(GC, & ! LONG_NAME = 'air_temperature', & @@ -1284,8 +1178,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'KM', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'total_scalar_diffusivity', & @@ -1293,8 +1186,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'KH', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Richardson_number', & @@ -1302,8 +1194,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'RI', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'bulk_shear_from_Louis', & @@ -1311,8 +1202,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'DU', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'scalar_diffusivity_from_Louis', & @@ -1320,8 +1210,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'KHLS', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'momentum_diffusivity_from_Louis', & @@ -1329,8 +1218,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'KMLS', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'surface_driven_scalar_diffusivity_from_Lock_scheme', & @@ -1338,8 +1226,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'KHSFC', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'radiation_driven_scalar_diffusivity_from_Lock_scheme', & @@ -1347,8 +1234,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'KHRAD', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'cloudy_LW_radiation_tendency_used_by_Lock_scheme', & @@ -1356,8 +1242,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'LWCRT', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'entrainment_heat_diffusivity_from_Lock', & @@ -1365,8 +1250,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EKH', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'entrainment_momentum_diffusivity_from_Lock', & @@ -1374,8 +1258,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'EKM', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Blackadar_length_scale_for_scalars', & @@ -1383,8 +1266,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'ALH', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Blackadar_length_scale_for_momentum', & @@ -1392,8 +1274,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'ALM', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'p-weighted_frictional_heating_rate_from_diffusion', & @@ -1401,8 +1282,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'INTDIS', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'p-weighted_frictional_heating_rate_from_orographic_drag',& @@ -1410,16 +1290,14 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'TOPDIS', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME='DPDTTRB', & LONG_NAME ='layer_pressure_thickness_tendency_from_turbulence', & UNITS ='Pa s-1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'p-weighted_frictional_heating_rate_from_surface_drag', & @@ -1427,104 +1305,91 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'SRFDIS', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'HGTLM5', & LONG_NAME = 'height_at_LM5',& UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'LM50M', & LONG_NAME = 'LM_at_50_meters',& UNITS = '1', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'QT', & LONG_NAME = 'total_water_after_turbulence', & UNITS = 'kg kg-1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'SL', & LONG_NAME = 'liquid_water_static_energy_after_turbulence', & UNITS = 'J', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'QTFLXTRB', & LONG_NAME = 'total_water_flux_from_turbulence', & UNITS = 'kg kg-1 m-1 s-1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'SLFLXTRB', & LONG_NAME = 'liquid_water_static_energy_flux_from_turbulence', & UNITS = 'J m-1 s-1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'UFLXTRB', & LONG_NAME = 'turbulent_flux_of_zonal_wind_component', & UNITS = 'm2 s-2', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'VFLXTRB', & LONG_NAME = 'turbulent_flux_of_meridional_wind_component', & UNITS = 'm2 s-2', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'KETRB', & LONG_NAME = 'vertically_integrated_kinetic_energy_tendency_across_turbulence',& UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'KESRF', & LONG_NAME = 'vertically_integrated_kinetic_energy_dissipation_due_to_surface_friction',& UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'KEINT', & LONG_NAME = 'vertically_integrated_kinetic_energy_dissipation_due_to_diffusion',& UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec ( gc, & SHORT_NAME = 'KETOP', & LONG_NAME = 'vertically_integrated_kinetic_energy_dissipation_due_to_topographic_friction',& UNITS = 'W m-2', & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'entrainment_velocity_from_surface_plume', & @@ -1532,8 +1397,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'WESFC', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'entrainment_velocity_from_radiation', & @@ -1541,8 +1405,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'WERAD', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'entrainment_velocity_from_buoy_rev', & @@ -1550,8 +1413,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'WEBRV', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'trade_inversion_base_pressure', & @@ -1559,8 +1421,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'TRINVBS', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'trade_inversion_temperature_jump', & @@ -1568,8 +1429,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'TRINVDELT', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'trade_inversion_frequency', & @@ -1577,8 +1437,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'TRINVFRQ', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & @@ -1587,8 +1446,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'DBUOY', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'turbulent_velocity_scale_for_sfc', & @@ -1596,8 +1454,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'VSCSFC', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'turbulent_velocity_scale_for_cooling', & @@ -1605,8 +1462,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'VSCRAD', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'turbulent_velocity_scale_for_buoy_rev', & @@ -1614,8 +1470,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'VSCBRV', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'turbulent_entrainment_diff_from_cooling', & @@ -1623,8 +1478,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'KERAD', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'cloud_top_radiative_forcing', & @@ -1632,8 +1486,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'CLDRF', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'pbltop_pressure', & @@ -1641,8 +1494,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'PPBL', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'pbltop_height_for_sfc_plume_LOCK', & @@ -1650,8 +1502,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'ZSML', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'depth_for_rad/brv_plume_LOCK', & @@ -1659,8 +1510,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'ZRADML', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'hght_of_base_for_rad/brv_plume_LOCK', & @@ -1668,8 +1518,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'ZRADBS', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'pbltop_cloud_depth_LOCK', & @@ -1677,8 +1526,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'ZCLD', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'pbltop_cloud_top_height_LOCK', & @@ -1686,8 +1534,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'ZCLDTOP', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'optimal_mixture_fraction_for_BRV', & @@ -1695,8 +1542,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'CHIS', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 's_of_optimal_mixture_for_BRV', & @@ -1704,8 +1550,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'SMIXT', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Scaled_Del_s_at_Cloud_top', & @@ -1713,8 +1558,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'DELSINV', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Siems_buoy_rev_parameter', & @@ -1722,8 +1566,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'DSIEMS', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'Return_codes_for_Lock_top_driven_plume', & @@ -1731,8 +1574,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'RADRCODE', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'matrix_diagonal_ak_for_scalars_over_dt', & @@ -1740,8 +1582,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'matrix_diagonal_ck_for_scalars_over_dt', & @@ -1749,8 +1590,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'matrix_diagonal_ak_for_moisture_over_dt', & @@ -1758,8 +1598,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'matrix_diagonal_ck_for_moisture_over_dt', & @@ -1767,8 +1606,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'matrix_diagonal_ak_for_winds_over_dt', & @@ -1776,8 +1614,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'matrix_diagonal_ck_for_winds_over_dt', & @@ -1785,8 +1622,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'transcom_planetary_boundary_layer_height', & @@ -1794,8 +1630,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'planetary_boundary_layer_height_threshold_2', & @@ -1803,8 +1638,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'planetary_boundary_layer_height_threshold_10p', & @@ -1812,8 +1646,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'planetary_boundary_layer_height_horiz_tke', & @@ -1821,8 +1654,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'turbulent_kinetic_energy', & @@ -1830,8 +1662,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm+2 s-2', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'planetary_boundary_layer_height_rich_0', & @@ -1839,8 +1670,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'planetary_boundary_layer_height_thetav', & @@ -1848,8 +1678,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'planetary_boundary_layer_height_qv', & @@ -1857,8 +1686,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'boundary_layer_height_from_refractivity_gradient', & @@ -1866,8 +1694,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'surface_based_inversion_frequency', & @@ -1875,8 +1702,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'surface_based_inversion_top_height', & @@ -1884,8 +1710,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'pbltop_level', & @@ -1893,8 +1718,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'pbltop_level_for_shallow', & @@ -1902,8 +1726,7 @@ subroutine SetServices ( GC, RC ) UNITS = '1', & DIMS = MAPL_DimsHorzOnly, & VLOCATION = MAPL_VLocationNone, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'ZPBL_SC', & @@ -1911,8 +1734,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & FRIENDLYTO = trim(COMP_NAME), & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'zonal_wind_after_diffuse', & @@ -1920,8 +1742,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'UAFDIFFUSE', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'merdional_wind_after_diffuse', & @@ -1929,8 +1750,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'VAFDIFFUSE', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'dry_static_energy_after_diffuse', & @@ -1938,8 +1758,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'SAFDIFFUSE', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'specific_humidity_after_diffuse', & @@ -1947,8 +1766,7 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'QAFDIFFUSE', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'dry_static_energy_after_update', & @@ -1956,88 +1774,77 @@ subroutine SetServices ( GC, RC ) SHORT_NAME = 'SAFUPDATE', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'SHOCPRNUM', & LONG_NAME = 'Prandtl_number_from_SHOC', & UNITS = '1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TKEDISS', & LONG_NAME = 'tke_dissipation_from_SHOC', & UNITS = 'm+2 s-3', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TKEBUOY', & LONG_NAME = 'tke_buoyancy_tendency_from_SHOC', & UNITS = 'm+2 s-3', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'TKESHEAR', & LONG_NAME = 'tke_shear_production_from_SHOC', & UNITS = 'm+2 s-3', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'ISOTROPY', & LONG_NAME = 'return_to_isotropy_timescale', & UNITS = 's', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LSHOC', & LONG_NAME = 'eddy_dissipation_length_from_SHOC', & UNITS = 'm', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LSHOC1', & LONG_NAME = 'dissipation_length_term1_from_SHOC', & UNITS = 'm', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LSHOC2', & LONG_NAME = 'dissipation_length_term2_from_SHOC', & UNITS = 'm', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'LSHOC3', & LONG_NAME = 'dissipation_length_term3_from_SHOC', & UNITS = 'm', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & SHORT_NAME = 'BRUNTSHOC', & LONG_NAME = 'Brunt_Vaisala_frequency_from_SHOC', & UNITS = 's-1', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'edge_height_above_surface', & @@ -2045,8 +1852,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationEdge, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddExportSpec(GC, & LONG_NAME = 'center_height_above_surface', & @@ -2054,8 +1860,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) if (DO_WAVES/=0 .and. DO_SEA_SPRAY/=0) then call MAPL_AddExportSpec(GC, & @@ -2087,8 +1892,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_bhat_for_s', & @@ -2097,8 +1901,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_c_for_s', & @@ -2107,8 +1910,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'rhs_for_s', & @@ -2117,8 +1919,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_ahat_for_qq', & @@ -2127,8 +1928,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_bhat_for_qq', & @@ -2137,8 +1937,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_c_for_qq', & @@ -2147,8 +1946,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'rhs_for_qv', & @@ -2157,8 +1955,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'rhs_for_ql', & @@ -2167,8 +1964,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'rhs_for_qi', & @@ -2177,8 +1973,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_ahat_for_uu', & @@ -2187,8 +1982,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_bhat_for_uu', & @@ -2197,8 +1991,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_c_for_uu', & @@ -2207,8 +2000,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'rhs_for_u', & @@ -2217,8 +2009,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'rhs_for_v', & @@ -2227,8 +2018,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'SHOC_TKE_dissipation_rate', & @@ -2237,8 +2027,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! ! end of new internal states for the mass-flux @@ -2255,8 +2044,7 @@ subroutine SetServices ( GC, RC ) FRIENDLYTO = trim(COMP_NAME), & DEFAULT = 0., & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'ct_scm', & @@ -2265,8 +2053,7 @@ subroutine SetServices ( GC, RC ) FRIENDLYTO = trim(COMP_NAME), & DEFAULT = 0., & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'ssurf_scm', & @@ -2275,8 +2062,7 @@ subroutine SetServices ( GC, RC ) FRIENDLYTO = trim(COMP_NAME), & DEFAULT = 0., & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'qsurf_scm', & @@ -2285,8 +2071,7 @@ subroutine SetServices ( GC, RC ) FRIENDLYTO = trim(COMP_NAME), & DEFAULT = 0., & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) end if ! @@ -2300,8 +2085,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_bhat_for_scalars', & @@ -2310,8 +2094,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_c_for_scalars', & @@ -2320,8 +2103,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'sensitivity_of_tendency_to_surface_value_for_scalars', & @@ -2330,8 +2112,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_ahat_for_moisture', & @@ -2340,8 +2121,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_bhat_for_moisture', & @@ -2350,8 +2130,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_c_for_moisture', & @@ -2360,8 +2139,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'sensitivity_of_tendency_to_surface_value_for_moisture', & @@ -2370,8 +2148,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_ahat_for_winds', & @@ -2380,8 +2157,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_bhat_for_winds', & @@ -2390,8 +2166,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'matrix_diagonal_c_for_winds', & @@ -2400,8 +2175,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'sensitivity_of_tendency_to_surface_value_for_winds', & @@ -2410,8 +2184,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'momentum_mixing_factor', & @@ -2420,8 +2193,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'topographic_roughness_factor', & @@ -2430,8 +2202,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & LONG_NAME = 'turbulence_tendency_for_dry_static_energy', & @@ -2440,8 +2211,7 @@ subroutine SetServices ( GC, RC ) DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & RESTART = MAPL_RestartSkip, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'ZPBL', & @@ -2449,12 +2219,10 @@ subroutine SetServices ( GC, RC ) UNITS = 'm', & FRIENDLYTO = trim(COMP_NAME), & DIMS = MAPL_DimsHorzOnly, & - VLOCATION = MAPL_VLocationNone, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationNone, _RC) call ESMF_ConfigGetAttribute( CF, DO_SHOC, Label=trim(COMP_NAME)//"_DO_SHOC:", & - default=0, RC=STATUS) - VERIFY_(STATUS) + default=0, _RC) FRIENDLIES_SHOC = trim(COMP_NAME) if (DO_SHOC /= 0) then FRIENDLIES_SHOC = 'DYNAMICS:TURBULENCE' @@ -2468,8 +2236,7 @@ subroutine SetServices ( GC, RC ) FRIENDLYTO = FRIENDLIES_SHOC, & DIMS = MAPL_DimsHorzVert, & VLOCATION = MAPL_VLocationCenter, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'TKESHOC', & @@ -2478,8 +2245,7 @@ subroutine SetServices ( GC, RC ) DEFAULT = 1e-4, & FRIENDLYTO = FRIENDLIES_SHOC, & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'TKH', & @@ -2488,8 +2254,7 @@ subroutine SetServices ( GC, RC ) DEFAULT = 0.0, & FRIENDLYTO = 'TURBULENCE', & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'QT2', & @@ -2498,8 +2263,7 @@ subroutine SetServices ( GC, RC ) DEFAULT = 0.0, & FRIENDLYTO = FRIENDLIES_SHOC, & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'QT3', & @@ -2508,8 +2272,7 @@ subroutine SetServices ( GC, RC ) DEFAULT = 0.0, & FRIENDLYTO = FRIENDLIES_SHOC, & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationCenter, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationCenter, _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'MFAW', & @@ -2517,8 +2280,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'm s-1', & DEFAULT = 0.0, & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'SLFLXMF', & @@ -2526,8 +2288,7 @@ subroutine SetServices ( GC, RC ) UNITS = 'K m s-1', & DEFAULT = 0.0, & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) call MAPL_AddInternalSpec(GC, & SHORT_NAME = 'QTFLXMF', & @@ -2535,56 +2296,36 @@ subroutine SetServices ( GC, RC ) UNITS = 'kg kg-1 m s-1', & DEFAULT = 0.0, & DIMS = MAPL_DimsHorzVert, & - VLOCATION = MAPL_VLocationEdge, RC=STATUS ) - VERIFY_(STATUS) + VLOCATION = MAPL_VLocationEdge, _RC) !EOS ! Set the Profiling timers ! ------------------------ - call MAPL_TimerAdd(GC, name="-RUN1" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="--DIFFUSE" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="--REFRESHKS" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="---PRELIMS" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="---SURFACE" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="---MASSFLUX" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="---SHOC" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="---LOUIS" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="---LOCK" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="----LOCK_RUN",RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="----LOCK_DATA",RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="----LOCK_ALLOC",RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="----LOCK_DEALLOC",RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="---POSTLOCK" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="---BELJAARS" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="---DECOMP" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="-RUN2" ,RC=STATUS) - VERIFY_(STATUS) - call MAPL_TimerAdd(GC, name="--UPDATE" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerAdd(GC, name="-RUN1" ,_RC) + call MAPL_TimerAdd(GC, name="--DIFFUSE" ,_RC) + call MAPL_TimerAdd(GC, name="--REFRESHKS" ,_RC) + call MAPL_TimerAdd(GC, name="---PRELIMS" ,_RC) + call MAPL_TimerAdd(GC, name="---SURFACE" ,_RC) + call MAPL_TimerAdd(GC, name="---MASSFLUX" ,_RC) + call MAPL_TimerAdd(GC, name="---SHOC" ,_RC) + call MAPL_TimerAdd(GC, name="---LOUIS" ,_RC) + call MAPL_TimerAdd(GC, name="---LOCK" ,_RC) + call MAPL_TimerAdd(GC, name="----LOCK_RUN",_RC) + call MAPL_TimerAdd(GC, name="----LOCK_DATA",_RC) + call MAPL_TimerAdd(GC, name="----LOCK_ALLOC",_RC) + call MAPL_TimerAdd(GC, name="----LOCK_DEALLOC",_RC) + call MAPL_TimerAdd(GC, name="---POSTLOCK" ,_RC) + call MAPL_TimerAdd(GC, name="---BELJAARS" ,_RC) + call MAPL_TimerAdd(GC, name="---DECOMP" ,_RC) + call MAPL_TimerAdd(GC, name="-RUN2" ,_RC) + call MAPL_TimerAdd(GC, name="--UPDATE" ,_RC) ! Set generic init and final methods ! ---------------------------------- - call MAPL_GenericSetServices ( GC, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GenericSetServices ( GC, _RC) RETURN_(ESMF_SUCCESS) @@ -2700,15 +2441,13 @@ subroutine RUN1 ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Get my name and set-up traceback handle ! --------------------------------------- - call ESMF_GridCompGet( GC, NAME=COMP_NAME, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_GridCompGet( GC, NAME=COMP_NAME, _RC) Iam = trim(COMP_NAME) // 'Run1' ! Get my internal MAPL_Generic state !----------------------------------- - call MAPL_GetObjectFromGC ( GC, MAPL, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetObjectFromGC ( GC, MAPL, _RC) call MAPL_TimerOn(MAPL,"TOTAL") call MAPL_TimerOn(MAPL,"-RUN1") @@ -2720,32 +2459,24 @@ subroutine RUN1 ( GC, IMPORT, EXPORT, CLOCK, RC ) IM=IM, JM=JM, LM=LM, & RUNALARM=ALARM, & INTERNAL_ESMF_STATE=INTERNAL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Get configuration from component !--------------------------------- - call ESMF_GridCompGet( GC, CONFIG = CF, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_GridCompGet( GC, CONFIG = CF, _RC) ! Sea spray - call MAPL_GetResource ( MAPL, DO_WAVES, Label="USE_WAVES:", DEFAULT=0, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource ( MAPL, DO_WAVES, Label="USE_WAVES:", DEFAULT=0, _RC) - call MAPL_GetResource ( MAPL, DO_SEA_SPRAY, Label="USE_SEA_SPRAY:", DEFAULT=0, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource ( MAPL, DO_SEA_SPRAY, Label="USE_SEA_SPRAY:", DEFAULT=0, _RC) if (DO_WAVES/=0 .and. DO_SEA_SPRAY/=0) then - call MAPL_GetPointer(IMPORT, SH_SPR, 'SHFX_SPRAY', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, LH_SPR, 'LHFX_SPRAY', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, SH_SPR, 'SHFX_SPRAY', _RC) + call MAPL_GetPointer(IMPORT, LH_SPR, 'LHFX_SPRAY', _RC) - call MAPL_GetPointer(EXPORT, SH_SPRX, 'SHFX_SPRAY', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LH_SPRX, 'LHFX_SPRAY', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, SH_SPRX, 'SHFX_SPRAY', _RC) + call MAPL_GetPointer(EXPORT, LH_SPRX, 'LHFX_SPRAY', _RC) if (associated(SH_SPRX)) SH_SPRX = SH_SPR if (associated(LH_SPRX)) LH_SPRX = LH_SPR @@ -2757,156 +2488,100 @@ subroutine RUN1 ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Get pressure & height structure; this is instantaneous. !----------------------------------------------- - call MAPL_GetPointer(IMPORT, PLE, 'PLE', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, ZLE, 'ZLE', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, PLE, 'PLE', _RC) + call MAPL_GetPointer(IMPORT, ZLE, 'ZLE', _RC) ! Get surface exchange coefficients !---------------------------------- - call MAPL_GetPointer(IMPORT, CU, 'CM', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, CT, 'CT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, CQ, 'CQ', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, CU, 'CM', _RC) + call MAPL_GetPointer(IMPORT, CT, 'CT', _RC) + call MAPL_GetPointer(IMPORT, CQ, 'CQ', _RC) !----- variables needed for SHOC and EDMF ----- - call MAPL_GetPointer(IMPORT, SH, 'SH', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, EVAP, 'EVAP', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, WTHV2, 'WTHV2', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, WQT_DC, 'WQT_DC', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, PHIS, 'PHIS', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, SH, 'SH', _RC) + call MAPL_GetPointer(IMPORT, EVAP, 'EVAP', _RC) + call MAPL_GetPointer(IMPORT, WTHV2, 'WTHV2', _RC) + call MAPL_GetPointer(IMPORT, WQT_DC, 'WQT_DC', _RC) + call MAPL_GetPointer(IMPORT, PHIS, 'PHIS', _RC) !----- Variables for idealized SCM surface layer ------ call MAPL_GetResource (MAPL, SCM_SL, "SCM_SL:", default=0, RC=STATUS) if (SCM_SL /= 0) then - call MAPL_GetPointer(INTERNAL, cu_scm, 'cu_scm', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, ct_scm, 'ct_scm', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, ssurf_scm, 'ssurf_scm', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, qsurf_scm, 'qsurf_scm', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, cu_scm, 'cu_scm', _RC) + call MAPL_GetPointer(INTERNAL, ct_scm, 'ct_scm', _RC) + call MAPL_GetPointer(INTERNAL, ssurf_scm, 'ssurf_scm', _RC) + call MAPL_GetPointer(INTERNAL, qsurf_scm, 'qsurf_scm', _RC) end if ! Get pointers from internal state !--------------------------------- - call MAPL_GetPointer(INTERNAL, AKS, 'AKS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, BKS, 'BKS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, CKS, 'CKS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, DKS, 'DKS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, AKQ, 'AKQ', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, BKQ, 'BKQ', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, CKQ, 'CKQ', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, DKQ, 'DKQ', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, AKV, 'AKV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, BKV, 'BKV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, CKV, 'CKV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, DKV, 'DKV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, EKV, 'EKV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FKV, 'FKV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, SINC, 'SINC', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, ZPBL, 'ZPBL', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, AKS, 'AKS', _RC) + call MAPL_GetPointer(INTERNAL, BKS, 'BKS', _RC) + call MAPL_GetPointer(INTERNAL, CKS, 'CKS', _RC) + call MAPL_GetPointer(INTERNAL, DKS, 'DKS', _RC) + call MAPL_GetPointer(INTERNAL, AKQ, 'AKQ', _RC) + call MAPL_GetPointer(INTERNAL, BKQ, 'BKQ', _RC) + call MAPL_GetPointer(INTERNAL, CKQ, 'CKQ', _RC) + call MAPL_GetPointer(INTERNAL, DKQ, 'DKQ', _RC) + call MAPL_GetPointer(INTERNAL, AKV, 'AKV', _RC) + call MAPL_GetPointer(INTERNAL, BKV, 'BKV', _RC) + call MAPL_GetPointer(INTERNAL, CKV, 'CKV', _RC) + call MAPL_GetPointer(INTERNAL, DKV, 'DKV', _RC) + call MAPL_GetPointer(INTERNAL, EKV, 'EKV', _RC) + call MAPL_GetPointer(INTERNAL, FKV, 'FKV', _RC) + call MAPL_GetPointer(INTERNAL, SINC, 'SINC', _RC) + call MAPL_GetPointer(INTERNAL, ZPBL, 'ZPBL', _RC) !----- SHOC-related variables ----- call MAPL_GetResource (MAPL, DO_SHOC, trim(COMP_NAME)//"_DO_SHOC:", & default=0, RC=STATUS) - call MAPL_GetPointer(INTERNAL, TKESHOC,'TKESHOC', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, TKH, 'TKH', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, QT3, 'QT3', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, QT2, 'QT2', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, PDF_A, 'PDF_A', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, MFAW, 'MFAW', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, QTFLXMF, 'QTFLXMF', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, SLFLXMF, 'SLFLXMF', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, TKESHOC,'TKESHOC', _RC) + call MAPL_GetPointer(INTERNAL, TKH, 'TKH', _RC) + call MAPL_GetPointer(INTERNAL, QT3, 'QT3', _RC) + call MAPL_GetPointer(INTERNAL, QT2, 'QT2', _RC) + call MAPL_GetPointer(INTERNAL, PDF_A, 'PDF_A', _RC) + call MAPL_GetPointer(INTERNAL, MFAW, 'MFAW', _RC) + call MAPL_GetPointer(INTERNAL, QTFLXMF, 'QTFLXMF', _RC) + call MAPL_GetPointer(INTERNAL, SLFLXMF, 'SLFLXMF', _RC) ! ! edmf variables ! ! a,b,c and rhs for s - call MAPL_GetPointer(INTERNAL, AKSS, 'AKSS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, BKSS, 'BKSS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, CKSS, 'CKSS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, YS, 'YS', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, AKSS, 'AKSS', _RC) + call MAPL_GetPointer(INTERNAL, BKSS, 'BKSS', _RC) + call MAPL_GetPointer(INTERNAL, CKSS, 'CKSS', _RC) + call MAPL_GetPointer(INTERNAL, YS, 'YS', _RC) ! a,b,c for moisture and rhs for qv,ql,qi - call MAPL_GetPointer(INTERNAL, AKQQ, 'AKQQ', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, BKQQ, 'BKQQ', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, CKQQ, 'CKQQ', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, YQV, 'YQV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, YQL, 'YQL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, YQI, 'YQI', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, AKQQ, 'AKQQ', _RC) + call MAPL_GetPointer(INTERNAL, BKQQ, 'BKQQ', _RC) + call MAPL_GetPointer(INTERNAL, CKQQ, 'CKQQ', _RC) + call MAPL_GetPointer(INTERNAL, YQV, 'YQV', _RC) + call MAPL_GetPointer(INTERNAL, YQL, 'YQL', _RC) + call MAPL_GetPointer(INTERNAL, YQI, 'YQI', _RC) ! a,b,c and rhs for wind speed - call MAPL_GetPointer(INTERNAL, AKUU, 'AKUU', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, BKUU, 'BKUU', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, CKUU, 'CKUU', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, YU, 'YU', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, YV, 'YV', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, AKUU, 'AKUU', _RC) + call MAPL_GetPointer(INTERNAL, BKUU, 'BKUU', _RC) + call MAPL_GetPointer(INTERNAL, CKUU, 'CKUU', _RC) + call MAPL_GetPointer(INTERNAL, YU, 'YU', _RC) + call MAPL_GetPointer(INTERNAL, YV, 'YV', _RC) ! Get application's timestep from configuration !---------------------------------------------- - call ESMF_ConfigGetAttribute(CF, DT, Label="RUN_DT:" , RC=STATUS) - VERIFY_(STATUS) + call ESMF_ConfigGetAttribute(CF, DT, Label="RUN_DT:" , _RC) ! If its time, do the refresh ! --------------------------- if ( ESMF_AlarmIsRinging(ALARM, rc=status) ) then VERIFY_(STATUS) - call ESMF_AlarmRingerOff(ALARM, RC=STATUS) - VERIFY_(STATUS) + call ESMF_AlarmRingerOff(ALARM, _RC) call MAPL_TimerOn (MAPL,"--REFRESHKS") - call REFRESH(IM,JM,LM,RC=STATUS) - VERIFY_(STATUS) + call REFRESH(IM,JM,LM,_RC) call MAPL_TimerOff(MAPL,"--REFRESHKS") endif @@ -2914,8 +2589,7 @@ subroutine RUN1 ( GC, IMPORT, EXPORT, CLOCK, RC ) ! --------------------------------- call MAPL_TimerOn (MAPL,"--DIFFUSE") - call DIFFUSE(IM,JM,LM,RC=STATUS) - VERIFY_(STATUS) + call DIFFUSE(IM,JM,LM,_RC) call MAPL_TimerOff(MAPL,"--DIFFUSE") ! All done with RUN1 @@ -3202,384 +2876,277 @@ subroutine REFRESH(IM,JM,LM,RC) ! Get tracer bundle for aerosol PBL calculation !----------------------------------- - call ESMF_StateGet(IMPORT, 'TR' , TR, RC=STATUS); VERIFY_(STATUS) + call ESMF_StateGet(IMPORT, 'TR' , TR, _RC) - call ESMF_FieldBundleGet(TR, fieldCOUNT=NTR, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldBundleGet(TR, fieldCOUNT=NTR, _RC) ! Get Sounding from the import state !----------------------------------- - call MAPL_GetPointer(IMPORT, T, 'T', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, Q, 'QV', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, TH, 'TH', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, U, 'U', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, V, 'V', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, OMEGA, 'OMEGA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, AREA, 'AREA', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT,VARFLT, 'VARFLT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, PREF, 'PREF', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, RADLW, 'RADLW', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT,RADLWC, 'RADLWC', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QLTOT, 'QLTOT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QITOT, 'QITOT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QRTOT, 'QRTOT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QSTOT, 'QSTOT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, QGTOT, 'QGTOT', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, FCLD, 'FCLD', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, BSTAR, 'BSTAR', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, USTAR, 'USTAR', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT,FRLAND, 'FRLAND', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, Z0, 'Z0', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, Z0H, 'Z0H', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, EIS, 'EIS', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, T, 'T', _RC) + call MAPL_GetPointer(IMPORT, Q, 'QV', _RC) + call MAPL_GetPointer(IMPORT, TH, 'TH', _RC) + call MAPL_GetPointer(IMPORT, U, 'U', _RC) + call MAPL_GetPointer(IMPORT, V, 'V', _RC) + call MAPL_GetPointer(IMPORT, OMEGA, 'OMEGA', _RC) + call MAPL_GetPointer(IMPORT, AREA, 'AREA', _RC) + call MAPL_GetPointer(IMPORT,VARFLT, 'VARFLT', _RC) + call MAPL_GetPointer(IMPORT, PREF, 'PREF', _RC) + call MAPL_GetPointer(IMPORT, RADLW, 'RADLW', _RC) + call MAPL_GetPointer(IMPORT,RADLWC, 'RADLWC', _RC) + call MAPL_GetPointer(IMPORT, QLTOT, 'QLTOT', _RC) + call MAPL_GetPointer(IMPORT, QITOT, 'QITOT', _RC) + call MAPL_GetPointer(IMPORT, QRTOT, 'QRTOT', _RC) + call MAPL_GetPointer(IMPORT, QSTOT, 'QSTOT', _RC) + call MAPL_GetPointer(IMPORT, QGTOT, 'QGTOT', _RC) + call MAPL_GetPointer(IMPORT, FCLD, 'FCLD', _RC) + call MAPL_GetPointer(IMPORT, BSTAR, 'BSTAR', _RC) + call MAPL_GetPointer(IMPORT, USTAR, 'USTAR', _RC) + call MAPL_GetPointer(IMPORT,FRLAND, 'FRLAND', _RC) + call MAPL_GetPointer(IMPORT, Z0, 'Z0', _RC) + call MAPL_GetPointer(IMPORT, Z0H, 'Z0H', _RC) + call MAPL_GetPointer(IMPORT, EIS, 'EIS', _RC) ! Get turbulence parameters from configuration !--------------------------------------------- if (LM .eq. 72) then - call MAPL_GetResource (MAPL, JASON_PBL_SC , "JASON_PBL_SC:" , default=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, JASON_BELJAARS, "JASON_BELJAARS:", default=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, JASON_LOUIS , "JASON_LOUIS:" , default=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, JASON_LOCK , "JASON_LOCK:" , default=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, PBLHT_OPTION , trim(COMP_NAME)//"_PBLHT_OPTION:", default=4, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SMTH_HGT , trim(COMP_NAME)//"_SMTH_HGT:", default=0.0, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, JASON_PBL_SC , "JASON_PBL_SC:" , default=.TRUE., _RC) + call MAPL_GetResource (MAPL, JASON_BELJAARS, "JASON_BELJAARS:", default=.TRUE., _RC) + call MAPL_GetResource (MAPL, JASON_LOUIS , "JASON_LOUIS:" , default=.TRUE., _RC) + call MAPL_GetResource (MAPL, JASON_LOCK , "JASON_LOCK:" , default=.TRUE., _RC) + call MAPL_GetResource (MAPL, PBLHT_OPTION , trim(COMP_NAME)//"_PBLHT_OPTION:", default=4, _RC) + call MAPL_GetResource (MAPL, SMTH_HGT , trim(COMP_NAME)//"_SMTH_HGT:", default=0.0, _RC) else - call MAPL_GetResource (MAPL, JASON_PBL_SC , "JASON_PBL_SC:" , default=.FALSE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, JASON_BELJAARS, "JASON_BELJAARS:", default=.FALSE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, JASON_LOUIS , "JASON_LOUIS:" , default=.FALSE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, JASON_LOCK , "JASON_LOCK:" , default=.FALSE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, PBLHT_OPTION, trim(COMP_NAME)//"_PBLHT_OPTION:", default=5, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SMTH_HGT, trim(COMP_NAME)//"_SMTH_HGT:", default=300.0, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, JASON_PBL_SC , "JASON_PBL_SC:" , default=.FALSE., _RC) + call MAPL_GetResource (MAPL, JASON_BELJAARS, "JASON_BELJAARS:", default=.FALSE., _RC) + call MAPL_GetResource (MAPL, JASON_LOUIS , "JASON_LOUIS:" , default=.FALSE., _RC) + call MAPL_GetResource (MAPL, JASON_LOCK , "JASON_LOCK:" , default=.FALSE., _RC) + call MAPL_GetResource (MAPL, PBLHT_OPTION, trim(COMP_NAME)//"_PBLHT_OPTION:", default=5, _RC) + call MAPL_GetResource (MAPL, SMTH_HGT, trim(COMP_NAME)//"_SMTH_HGT:", default=300.0, _RC) endif ! Beljaars if (JASON_BELJAARS) then - call MAPL_GetResource (MAPL, C_B, trim(COMP_NAME)//"_C_B:", default=6.0, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, C_B, trim(COMP_NAME)//"_C_B:", default=6.0, _RC) else - call MAPL_GetResource (MAPL, C_B, trim(COMP_NAME)//"_C_B:", default=-3.0, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, C_B, trim(COMP_NAME)//"_C_B:", default=-3.0, _RC) endif ! Louis if (JASON_LOUIS) then - call MAPL_GetResource (MAPL, LOUIS_B_KH, trim(COMP_NAME)//"_LOUIS_B_KH:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_C_KH, trim(COMP_NAME)//"_LOUIS_C_KH:", default=7.5, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_D_KH, trim(COMP_NAME)//"_LOUIS_D_KH:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_B_KM, trim(COMP_NAME)//"_LOUIS_B_KM:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_C_KM, trim(COMP_NAME)//"_LOUIS_C_KM:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_D_KM, trim(COMP_NAME)//"_LOUIS_D_KM:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, ALHFAC, trim(COMP_NAME)//"_ALHFAC:", default=1.2, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, ALMFAC, trim(COMP_NAME)//"_ALMFAC:", default=1.2, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDAM, trim(COMP_NAME)//"_LAMBDAM:", default=160.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDAM2, trim(COMP_NAME)//"_LAMBDAM2:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDAH, trim(COMP_NAME)//"_LAMBDAH:", default=160.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDAH2, trim(COMP_NAME)//"_LAMBDAH2:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, ZKHMENV, trim(COMP_NAME)//"_ZKHMENV:", default=3000., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, MINTHICK, trim(COMP_NAME)//"_MINTHICK:", default=2.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, MINSHEAR, trim(COMP_NAME)//"_MINSHEAR:", default=0.0030, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDA_B, trim(COMP_NAME)//"_LAMBDA_B:", default=1500., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, AKHMMAX, trim(COMP_NAME)//"_AKHMMAX:", default=500., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, MO_MAX_ITER, trim(COMP_NAME)//"_MO_MAX_ITER:", default=0, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, LOUIS_B_KH, trim(COMP_NAME)//"_LOUIS_B_KH:", default=5.0, _RC) + call MAPL_GetResource (MAPL, LOUIS_C_KH, trim(COMP_NAME)//"_LOUIS_C_KH:", default=7.5, _RC) + call MAPL_GetResource (MAPL, LOUIS_D_KH, trim(COMP_NAME)//"_LOUIS_D_KH:", default=5.0, _RC) + call MAPL_GetResource (MAPL, LOUIS_B_KM, trim(COMP_NAME)//"_LOUIS_B_KM:", default=5.0, _RC) + call MAPL_GetResource (MAPL, LOUIS_C_KM, trim(COMP_NAME)//"_LOUIS_C_KM:", default=5.0, _RC) + call MAPL_GetResource (MAPL, LOUIS_D_KM, trim(COMP_NAME)//"_LOUIS_D_KM:", default=5.0, _RC) + call MAPL_GetResource (MAPL, ALHFAC, trim(COMP_NAME)//"_ALHFAC:", default=1.2, _RC) + call MAPL_GetResource (MAPL, ALMFAC, trim(COMP_NAME)//"_ALMFAC:", default=1.2, _RC) + call MAPL_GetResource (MAPL, LAMBDAM, trim(COMP_NAME)//"_LAMBDAM:", default=160.0, _RC) + call MAPL_GetResource (MAPL, LAMBDAM2, trim(COMP_NAME)//"_LAMBDAM2:", default=1.0, _RC) + call MAPL_GetResource (MAPL, LAMBDAH, trim(COMP_NAME)//"_LAMBDAH:", default=160.0, _RC) + call MAPL_GetResource (MAPL, LAMBDAH2, trim(COMP_NAME)//"_LAMBDAH2:", default=1.0, _RC) + call MAPL_GetResource (MAPL, ZKHMENV, trim(COMP_NAME)//"_ZKHMENV:", default=3000., _RC) + call MAPL_GetResource (MAPL, MINTHICK, trim(COMP_NAME)//"_MINTHICK:", default=2.0, _RC) + call MAPL_GetResource (MAPL, MINSHEAR, trim(COMP_NAME)//"_MINSHEAR:", default=0.0030, _RC) + call MAPL_GetResource (MAPL, LAMBDA_B, trim(COMP_NAME)//"_LAMBDA_B:", default=1500., _RC) + call MAPL_GetResource (MAPL, AKHMMAX, trim(COMP_NAME)//"_AKHMMAX:", default=500., _RC) + call MAPL_GetResource (MAPL, MO_MAX_ITER, trim(COMP_NAME)//"_MO_MAX_ITER:", default=0, _RC) else - call MAPL_GetResource (MAPL, LOUIS_B_KH, trim(COMP_NAME)//"_LOUIS_B_KH:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_C_KH, trim(COMP_NAME)//"_LOUIS_C_KH:", default=7.5, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_D_KH, trim(COMP_NAME)//"_LOUIS_D_KH:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_B_KM, trim(COMP_NAME)//"_LOUIS_B_KM:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_C_KM, trim(COMP_NAME)//"_LOUIS_C_KM:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOUIS_D_KM, trim(COMP_NAME)//"_LOUIS_D_KM:", default=5.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, ALHFAC, trim(COMP_NAME)//"_ALHFAC:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, ALMFAC, trim(COMP_NAME)//"_ALMFAC:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDAM, trim(COMP_NAME)//"_LAMBDAM:", default=150.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDAM2, trim(COMP_NAME)//"_LAMBDAM2:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDAH, trim(COMP_NAME)//"_LAMBDAH:", default=200.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDAH2, trim(COMP_NAME)//"_LAMBDAH2:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, ZKHMENV, trim(COMP_NAME)//"_ZKHMENV:", default=3200., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, MINTHICK, trim(COMP_NAME)//"_MINTHICK:", default=2.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, MINSHEAR, trim(COMP_NAME)//"_MINSHEAR:", default=0.0030, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LAMBDA_B, trim(COMP_NAME)//"_LAMBDA_B:", default=1500., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, AKHMMAX, trim(COMP_NAME)//"_AKHMMAX:", default=500., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, MO_MAX_ITER, trim(COMP_NAME)//"_MO_MAX_ITER:", default=0, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, LOUIS_B_KH, trim(COMP_NAME)//"_LOUIS_B_KH:", default=5.0, _RC) + call MAPL_GetResource (MAPL, LOUIS_C_KH, trim(COMP_NAME)//"_LOUIS_C_KH:", default=7.5, _RC) + call MAPL_GetResource (MAPL, LOUIS_D_KH, trim(COMP_NAME)//"_LOUIS_D_KH:", default=5.0, _RC) + call MAPL_GetResource (MAPL, LOUIS_B_KM, trim(COMP_NAME)//"_LOUIS_B_KM:", default=5.0, _RC) + call MAPL_GetResource (MAPL, LOUIS_C_KM, trim(COMP_NAME)//"_LOUIS_C_KM:", default=5.0, _RC) + call MAPL_GetResource (MAPL, LOUIS_D_KM, trim(COMP_NAME)//"_LOUIS_D_KM:", default=5.0, _RC) + call MAPL_GetResource (MAPL, ALHFAC, trim(COMP_NAME)//"_ALHFAC:", default=1.0, _RC) + call MAPL_GetResource (MAPL, ALMFAC, trim(COMP_NAME)//"_ALMFAC:", default=1.0, _RC) + call MAPL_GetResource (MAPL, LAMBDAM, trim(COMP_NAME)//"_LAMBDAM:", default=150.0, _RC) + call MAPL_GetResource (MAPL, LAMBDAM2, trim(COMP_NAME)//"_LAMBDAM2:", default=1.0, _RC) + call MAPL_GetResource (MAPL, LAMBDAH, trim(COMP_NAME)//"_LAMBDAH:", default=200.0, _RC) + call MAPL_GetResource (MAPL, LAMBDAH2, trim(COMP_NAME)//"_LAMBDAH2:", default=1.0, _RC) + call MAPL_GetResource (MAPL, ZKHMENV, trim(COMP_NAME)//"_ZKHMENV:", default=3200., _RC) + call MAPL_GetResource (MAPL, MINTHICK, trim(COMP_NAME)//"_MINTHICK:", default=2.0, _RC) + call MAPL_GetResource (MAPL, MINSHEAR, trim(COMP_NAME)//"_MINSHEAR:", default=0.0030, _RC) + call MAPL_GetResource (MAPL, LAMBDA_B, trim(COMP_NAME)//"_LAMBDA_B:", default=1500., _RC) + call MAPL_GetResource (MAPL, AKHMMAX, trim(COMP_NAME)//"_AKHMMAX:", default=500., _RC) + call MAPL_GetResource (MAPL, MO_MAX_ITER, trim(COMP_NAME)//"_MO_MAX_ITER:", default=0, _RC) endif ! Lock if (JASON_LOCK) then - call MAPL_GetResource (MAPL, LAMBDADISS, trim(COMP_NAME)//"_LAMBDADISS:", default=50.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, KHRADFAC, trim(COMP_NAME)//"_KHRADFAC:", default=0.85, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, KHSFCFAC_LND, trim(COMP_NAME)//"_KHSFCFAC_LND:", default=0.60, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, KHSFCFAC_OCN, trim(COMP_NAME)//"_KHSFCFAC_OCN:", default=0.30, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, PRANDTLSFC, trim(COMP_NAME)//"_PRANDTLSFC:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, PRANDTLRAD, trim(COMP_NAME)//"_PRANDTLRAD:", default=0.75, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, BETA_RAD, trim(COMP_NAME)//"_BETA_RAD:", default=0.20, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, BETA_SURF, trim(COMP_NAME)//"_BETA_SURF:", default=0.25, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, ENTRATE_SURF, trim(COMP_NAME)//"_ENTRATE_SURF:", default=1.5e-3, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, TPFAC, trim(COMP_NAME)//"_TPFAC:", default=20.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, PCEFF_SURF, trim(COMP_NAME)//"_PCEFF_SURF:", default=0.5, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOCK_ON, trim(COMP_NAME)//"_LOCK_ON:", default=1, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, VSCALE_SURF, trim(COMP_NAME)//"_VSCALE_SURF:", default=2.5e-3, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, USE_EIS, trim(COMP_NAME)//"_USE_EIS:", default=.false.,RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, LAMBDADISS, trim(COMP_NAME)//"_LAMBDADISS:", default=50.0, _RC) + call MAPL_GetResource (MAPL, KHRADFAC, trim(COMP_NAME)//"_KHRADFAC:", default=0.85, _RC) + call MAPL_GetResource (MAPL, KHSFCFAC_LND, trim(COMP_NAME)//"_KHSFCFAC_LND:", default=0.60, _RC) + call MAPL_GetResource (MAPL, KHSFCFAC_OCN, trim(COMP_NAME)//"_KHSFCFAC_OCN:", default=0.30, _RC) + call MAPL_GetResource (MAPL, PRANDTLSFC, trim(COMP_NAME)//"_PRANDTLSFC:", default=1.0, _RC) + call MAPL_GetResource (MAPL, PRANDTLRAD, trim(COMP_NAME)//"_PRANDTLRAD:", default=0.75, _RC) + call MAPL_GetResource (MAPL, BETA_RAD, trim(COMP_NAME)//"_BETA_RAD:", default=0.20, _RC) + call MAPL_GetResource (MAPL, BETA_SURF, trim(COMP_NAME)//"_BETA_SURF:", default=0.25, _RC) + call MAPL_GetResource (MAPL, ENTRATE_SURF, trim(COMP_NAME)//"_ENTRATE_SURF:", default=1.5e-3, _RC) + call MAPL_GetResource (MAPL, TPFAC, trim(COMP_NAME)//"_TPFAC:", default=20.0, _RC) + call MAPL_GetResource (MAPL, PCEFF_SURF, trim(COMP_NAME)//"_PCEFF_SURF:", default=0.5, _RC) + call MAPL_GetResource (MAPL, LOCK_ON, trim(COMP_NAME)//"_LOCK_ON:", default=1, _RC) + call MAPL_GetResource (MAPL, VSCALE_SURF, trim(COMP_NAME)//"_VSCALE_SURF:", default=2.5e-3, _RC) + call MAPL_GetResource (MAPL, USE_EIS, trim(COMP_NAME)//"_USE_EIS:", default=.false.,_RC) else - call MAPL_GetResource (MAPL, LAMBDADISS, trim(COMP_NAME)//"_LAMBDADISS:", default=15., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, KHRADFAC, trim(COMP_NAME)//"_KHRADFAC:", default=0.8, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, KHSFCFAC_LND, trim(COMP_NAME)//"_KHSFCFAC_LND:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, KHSFCFAC_OCN, trim(COMP_NAME)//"_KHSFCFAC_OCN:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, PRANDTLSFC, trim(COMP_NAME)//"_PRANDTLSFC:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, PRANDTLRAD, trim(COMP_NAME)//"_PRANDTLRAD:", default=0.75, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, BETA_RAD, trim(COMP_NAME)//"_BETA_RAD:", default=0.15, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, BETA_SURF, trim(COMP_NAME)//"_BETA_SURF:", default=0.10, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, ENTRATE_SURF, trim(COMP_NAME)//"_ENTRATE_SURF:", default=1.5e-3, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, TPFAC, trim(COMP_NAME)//"_TPFAC:", default=0.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, PCEFF_SURF, trim(COMP_NAME)//"_PCEFF_SURF:", default=0.375, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, LOCK_ON, trim(COMP_NAME)//"_LOCK_ON:", default=1, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, VSCALE_SURF, trim(COMP_NAME)//"_VSCALE_SURF:", default=2.5e-3, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, USE_EIS, trim(COMP_NAME)//"_USE_EIS:", default=.false.,RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, LAMBDADISS, trim(COMP_NAME)//"_LAMBDADISS:", default=15., _RC) + call MAPL_GetResource (MAPL, KHRADFAC, trim(COMP_NAME)//"_KHRADFAC:", default=0.8, _RC) + call MAPL_GetResource (MAPL, KHSFCFAC_LND, trim(COMP_NAME)//"_KHSFCFAC_LND:", default=1.0, _RC) + call MAPL_GetResource (MAPL, KHSFCFAC_OCN, trim(COMP_NAME)//"_KHSFCFAC_OCN:", default=1.0, _RC) + call MAPL_GetResource (MAPL, PRANDTLSFC, trim(COMP_NAME)//"_PRANDTLSFC:", default=1.0, _RC) + call MAPL_GetResource (MAPL, PRANDTLRAD, trim(COMP_NAME)//"_PRANDTLRAD:", default=0.75, _RC) + call MAPL_GetResource (MAPL, BETA_RAD, trim(COMP_NAME)//"_BETA_RAD:", default=0.15, _RC) + call MAPL_GetResource (MAPL, BETA_SURF, trim(COMP_NAME)//"_BETA_SURF:", default=0.10, _RC) + call MAPL_GetResource (MAPL, ENTRATE_SURF, trim(COMP_NAME)//"_ENTRATE_SURF:", default=1.5e-3, _RC) + call MAPL_GetResource (MAPL, TPFAC, trim(COMP_NAME)//"_TPFAC:", default=0.0, _RC) + call MAPL_GetResource (MAPL, PCEFF_SURF, trim(COMP_NAME)//"_PCEFF_SURF:", default=0.375, _RC) + call MAPL_GetResource (MAPL, LOCK_ON, trim(COMP_NAME)//"_LOCK_ON:", default=1, _RC) + call MAPL_GetResource (MAPL, VSCALE_SURF, trim(COMP_NAME)//"_VSCALE_SURF:", default=2.5e-3, _RC) + call MAPL_GetResource (MAPL, USE_EIS, trim(COMP_NAME)//"_USE_EIS:", default=.false.,_RC) endif - call MAPL_GetResource (MAPL, DO_SHOC, trim(COMP_NAME)//"_DO_SHOC:", default=0, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, DO_SHOC, trim(COMP_NAME)//"_DO_SHOC:", default=0, _RC) if (DO_SHOC /= 0) then - call MAPL_GetResource (MAPL, SHOCPARAMS%PRNUM, trim(COMP_NAME)//"_SHC_PRNUM:", default=-0.9, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%LAMBDA, trim(COMP_NAME)//"_SHC_LAMBDA:", default=0.25, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%TSCALE, trim(COMP_NAME)//"_SHC_TSCALE:", default=400., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%CKVAL, trim(COMP_NAME)//"_SHC_CK:", default=0.1, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%CEFAC, trim(COMP_NAME)//"_SHC_CEFAC:", default=1.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%CESFAC, trim(COMP_NAME)//"_SHC_CESFAC:", default=4., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%LENOPT, trim(COMP_NAME)//"_SHC_LENOPT:", default=3, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%LENFAC1, trim(COMP_NAME)//"_SHC_LENFAC1:", default=5., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%LENFAC2, trim(COMP_NAME)//"_SHC_LENFAC2:", default=2., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%LENFAC3, trim(COMP_NAME)//"_SHC_LENFAC3:", default=0.5, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SHOCPARAMS%BUOYOPT, trim(COMP_NAME)//"_SHC_BUOY_OPTION:", default=2, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, PDFSHAPE, 'PDFSHAPE:', DEFAULT = 6.0 , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, SHOCPARAMS%PRNUM, trim(COMP_NAME)//"_SHC_PRNUM:", default=-0.9, _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%LAMBDA, trim(COMP_NAME)//"_SHC_LAMBDA:", default=0.25, _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%TSCALE, trim(COMP_NAME)//"_SHC_TSCALE:", default=400., _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%CKVAL, trim(COMP_NAME)//"_SHC_CK:", default=0.1, _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%CEFAC, trim(COMP_NAME)//"_SHC_CEFAC:", default=1.0, _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%CESFAC, trim(COMP_NAME)//"_SHC_CESFAC:", default=4., _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%LENOPT, trim(COMP_NAME)//"_SHC_LENOPT:", default=3, _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%LENFAC1, trim(COMP_NAME)//"_SHC_LENFAC1:", default=5., _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%LENFAC2, trim(COMP_NAME)//"_SHC_LENFAC2:", default=2., _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%LENFAC3, trim(COMP_NAME)//"_SHC_LENFAC3:", default=0.5, _RC) + call MAPL_GetResource (MAPL, SHOCPARAMS%BUOYOPT, trim(COMP_NAME)//"_SHC_BUOY_OPTION:", default=2, _RC) + call MAPL_GetResource (MAPL, PDFSHAPE, 'PDFSHAPE:', DEFAULT = 6.0 , _RC) else - call MAPL_GetResource (MAPL, PDFSHAPE, 'PDFSHAPE:', DEFAULT = 1.0 , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, PDFSHAPE, 'PDFSHAPE:', DEFAULT = 1.0 , _RC) end if - call MAPL_GetResource (MAPL, DOPROGQT2, 'DOPROGQT2:', DEFAULT = 1 , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SL2TUNE, 'SL2TUNE:', DEFAULT = 4.0 , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, QT2TUNE, 'QT2TUNE:', DEFAULT = 1.0 , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SLQT2TUNE, 'SLQT2TUNE:', DEFAULT = 7.0 , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SKEW_TDIS, 'SKEW_TDIS:', DEFAULT = 900.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, SKEW_TGEN, 'SKEW_TGEN:', DEFAULT = 900.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, QT2_TDIS, 'QT2_TDIS:', DEFAULT = 900.0, RC=STATUS); VERIFY_(STATUS) - call MAPL_GetResource (MAPL, FREE_ATM_SIGS, 'FREE_ATM_SIGS:', DEFAULT = 0.05, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, DOPROGQT2, 'DOPROGQT2:', DEFAULT = 1 , _RC) + call MAPL_GetResource (MAPL, SL2TUNE, 'SL2TUNE:', DEFAULT = 4.0 , _RC) + call MAPL_GetResource (MAPL, QT2TUNE, 'QT2TUNE:', DEFAULT = 1.0 , _RC) + call MAPL_GetResource (MAPL, SLQT2TUNE, 'SLQT2TUNE:', DEFAULT = 7.0 , _RC) + call MAPL_GetResource (MAPL, SKEW_TDIS, 'SKEW_TDIS:', DEFAULT = 900.0, _RC) + call MAPL_GetResource (MAPL, SKEW_TGEN, 'SKEW_TGEN:', DEFAULT = 900.0, _RC) + call MAPL_GetResource (MAPL, QT2_TDIS, 'QT2_TDIS:', DEFAULT = 900.0, _RC) + call MAPL_GetResource (MAPL, FREE_ATM_SIGS, 'FREE_ATM_SIGS:', DEFAULT = 0.05, _RC) ! Get pointers from export state... !----------------------------------- PDFALLOC = (PDFSHAPE.ge.5) - call MAPL_GetPointer(EXPORT, KH, 'KH', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KM, 'KM', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, RI, 'RI', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DU, 'DU', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, EKH, 'EKH', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, EKM, 'EKM', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KHLS, 'KHLS', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KMLS, 'KMLS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KHSFC, 'KHSFC', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KHRAD, 'KHRAD', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, PPBL, 'PPBL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KPBL, 'KPBL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KPBL_SC, 'KPBL_SC', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZPBL_SC, 'ZPBL_SC', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TCZPBL, 'TCZPBL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZPBL2, 'ZPBL2', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZPBL10p, 'ZPBL10p', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZPBLHTKE, 'ZPBLHTKE', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TKE, 'TKE', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZPBLRI, 'ZPBLRI', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZPBLTHV, 'ZPBLTHV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZPBLQV, 'ZPBLQV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZPBLRFRCT, 'ZPBLRFRCT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SBIFRQ, 'SBIFRQ', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SBITOP, 'SBITOP', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LWCRT, 'LWCRT', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, WERAD, 'WERAD', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, WESFC, 'WESFC', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DBUOY, 'DBUOY', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TRINVBS, 'TRINVBS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TRINVDELT, 'TRINVDELT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TRINVFRQ, 'TRINVFRQ', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, VSCRAD, 'VSCRAD', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, VSCsfc, 'VSCSFC', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KERAD, 'KERAD', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, VSCBRV, 'VSCBRV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, WEBRV, 'WEBRV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CHIS, 'CHIS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DSIEMS, 'DSIEMS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZCLD, 'ZCLD', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZSML, 'ZSML', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZRADML, 'ZRADML', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZRADBS, 'ZRADBS', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZCLDTOP, 'ZCLDTOP', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, DELSINV, 'DELSINV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT,RADRCODE,'RADRCODE', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SMIXT, 'SMIXT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CLDRF, 'CLDRF', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ALH, 'ALH', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ALM, 'ALM', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, AKSODT, 'AKSODT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CKSODT, 'CKSODT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, AKQODT, 'AKQODT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CKQODT, 'CKQODT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, AKVODT, 'AKVODT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, CKVODT, 'CKVODT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZLS, 'ZLS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ZLES, 'ZLES', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, EDMF_PLUMES_W, 'EDMF_PLUMES_W', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, EDMF_PLUMES_QT, 'EDMF_PLUMES_QT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, EDMF_PLUMES_THL, 'EDMF_PLUMES_THL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_dqrdt, 'EDMF_DQRDT', ALLOC=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_dqsdt, 'EDMF_DQSDT', ALLOC=.true., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_buoyf, 'EDMF_BUOYF', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_slqt, 'EDMF_SLQT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_w2, 'EDMF_W2', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_w3, 'EDMF_W3', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_qt3, 'EDMF_QT3', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_sl3, 'EDMF_SL3', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, slqt, 'SLQT', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, w3, 'W3', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, w2, 'W2', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, sl3, 'SL3', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, sl2, 'SL2', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, lobukhov, 'LOBUKHOV', ALLOC=(DO_SHOC/=0), RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_wqt, 'EDMF_WQT', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_wsl, 'EDMF_WSL', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_tke, 'EDMF_TKE', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_mfx, 'EDMF_MF', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_dmfx, 'EDMF_DMF', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_dry_a, 'EDMF_DRY_A', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_moist_a, 'EDMF_MOIST_A', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, EDMF_FRC, 'EDMF_FRC', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_dry_u, 'EDMF_DRY_U', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_moist_u, 'EDMF_MOIST_U', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_dry_v, 'EDMF_DRY_V', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_moist_v, 'EDMF_MOIST_V', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_dry_w, 'EDMF_DRY_W', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_moist_w, 'EDMF_MOIST_W', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_dry_qt, 'EDMF_DRY_QT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_moist_qt, 'EDMF_MOIST_QT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_dry_thl, 'EDMF_DRY_THL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_moist_thl, 'EDMF_MOIST_THL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_moist_qc, 'EDMF_MOIST_QC', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_entx, 'EDMF_ENTR', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_depth, 'EDMF_DEPTH', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, KH, 'KH', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, KM, 'KM', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, RI, 'RI', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, DU, 'DU', _RC) + call MAPL_GetPointer(EXPORT, EKH, 'EKH', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, EKM, 'EKM', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, KHLS, 'KHLS', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, KMLS, 'KMLS', _RC) + call MAPL_GetPointer(EXPORT, KHSFC, 'KHSFC', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, KHRAD, 'KHRAD', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, PPBL, 'PPBL', _RC) + call MAPL_GetPointer(EXPORT, KPBL, 'KPBL', _RC) + call MAPL_GetPointer(EXPORT, KPBL_SC, 'KPBL_SC', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, ZPBL_SC, 'ZPBL_SC', _RC) + call MAPL_GetPointer(EXPORT, TCZPBL, 'TCZPBL', _RC) + call MAPL_GetPointer(EXPORT, ZPBL2, 'ZPBL2', _RC) + call MAPL_GetPointer(EXPORT, ZPBL10p, 'ZPBL10p', _RC) + call MAPL_GetPointer(EXPORT, ZPBLHTKE, 'ZPBLHTKE', _RC) + call MAPL_GetPointer(EXPORT, TKE, 'TKE', _RC) + call MAPL_GetPointer(EXPORT, ZPBLRI, 'ZPBLRI', _RC) + call MAPL_GetPointer(EXPORT, ZPBLTHV, 'ZPBLTHV', _RC) + call MAPL_GetPointer(EXPORT, ZPBLQV, 'ZPBLQV', _RC) + call MAPL_GetPointer(EXPORT, ZPBLRFRCT, 'ZPBLRFRCT', _RC) + call MAPL_GetPointer(EXPORT, SBIFRQ, 'SBIFRQ', _RC) + call MAPL_GetPointer(EXPORT, SBITOP, 'SBITOP', _RC) + call MAPL_GetPointer(EXPORT, LWCRT, 'LWCRT', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, WERAD, 'WERAD', _RC) + call MAPL_GetPointer(EXPORT, WESFC, 'WESFC', _RC) + call MAPL_GetPointer(EXPORT, DBUOY, 'DBUOY', _RC) + call MAPL_GetPointer(EXPORT, TRINVBS, 'TRINVBS', _RC) + call MAPL_GetPointer(EXPORT, TRINVDELT, 'TRINVDELT', _RC) + call MAPL_GetPointer(EXPORT, TRINVFRQ, 'TRINVFRQ', _RC) + call MAPL_GetPointer(EXPORT, VSCRAD, 'VSCRAD', _RC) + call MAPL_GetPointer(EXPORT, VSCsfc, 'VSCSFC', _RC) + call MAPL_GetPointer(EXPORT, KERAD, 'KERAD', _RC) + call MAPL_GetPointer(EXPORT, VSCBRV, 'VSCBRV', _RC) + call MAPL_GetPointer(EXPORT, WEBRV, 'WEBRV', _RC) + call MAPL_GetPointer(EXPORT, CHIS, 'CHIS', _RC) + call MAPL_GetPointer(EXPORT, DSIEMS, 'DSIEMS', _RC) + call MAPL_GetPointer(EXPORT, ZCLD, 'ZCLD', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, ZSML, 'ZSML', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, ZRADML, 'ZRADML', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, ZRADBS, 'ZRADBS', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, ZCLDTOP, 'ZCLDTOP', _RC) + call MAPL_GetPointer(EXPORT, DELSINV, 'DELSINV', _RC) + call MAPL_GetPointer(EXPORT,RADRCODE,'RADRCODE', _RC) + call MAPL_GetPointer(EXPORT, SMIXT, 'SMIXT', _RC) + call MAPL_GetPointer(EXPORT, CLDRF, 'CLDRF', _RC) + call MAPL_GetPointer(EXPORT, ALH, 'ALH', _RC) + call MAPL_GetPointer(EXPORT, ALM, 'ALM', _RC) + call MAPL_GetPointer(EXPORT, AKSODT, 'AKSODT', _RC) + call MAPL_GetPointer(EXPORT, CKSODT, 'CKSODT', _RC) + call MAPL_GetPointer(EXPORT, AKQODT, 'AKQODT', _RC) + call MAPL_GetPointer(EXPORT, CKQODT, 'CKQODT', _RC) + call MAPL_GetPointer(EXPORT, AKVODT, 'AKVODT', _RC) + call MAPL_GetPointer(EXPORT, CKVODT, 'CKVODT', _RC) + call MAPL_GetPointer(EXPORT, ZLS, 'ZLS', _RC) + call MAPL_GetPointer(EXPORT, ZLES, 'ZLES', _RC) + call MAPL_GetPointer(EXPORT, EDMF_PLUMES_W, 'EDMF_PLUMES_W', _RC) + call MAPL_GetPointer(EXPORT, EDMF_PLUMES_QT, 'EDMF_PLUMES_QT', _RC) + call MAPL_GetPointer(EXPORT, EDMF_PLUMES_THL, 'EDMF_PLUMES_THL', _RC) + call MAPL_GetPointer(EXPORT, edmf_dqrdt, 'EDMF_DQRDT', ALLOC=.true., _RC) + call MAPL_GetPointer(EXPORT, edmf_dqsdt, 'EDMF_DQSDT', ALLOC=.true., _RC) + call MAPL_GetPointer(EXPORT, edmf_buoyf, 'EDMF_BUOYF', _RC) + call MAPL_GetPointer(EXPORT, edmf_slqt, 'EDMF_SLQT', _RC) + call MAPL_GetPointer(EXPORT, edmf_w2, 'EDMF_W2', _RC) + call MAPL_GetPointer(EXPORT, edmf_w3, 'EDMF_W3', _RC) + call MAPL_GetPointer(EXPORT, edmf_qt3, 'EDMF_QT3', _RC) + call MAPL_GetPointer(EXPORT, edmf_sl3, 'EDMF_SL3', _RC) + call MAPL_GetPointer(EXPORT, slqt, 'SLQT', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, w3, 'W3', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, w2, 'W2', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, sl3, 'SL3', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, sl2, 'SL2', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, lobukhov, 'LOBUKHOV', ALLOC=(DO_SHOC/=0), _RC) + call MAPL_GetPointer(EXPORT, edmf_wqt, 'EDMF_WQT', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, edmf_wsl, 'EDMF_WSL', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, edmf_tke, 'EDMF_TKE', _RC) + call MAPL_GetPointer(EXPORT, edmf_mfx, 'EDMF_MF', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, edmf_dmfx, 'EDMF_DMF', _RC) + call MAPL_GetPointer(EXPORT, edmf_dry_a, 'EDMF_DRY_A', _RC) + call MAPL_GetPointer(EXPORT, edmf_moist_a, 'EDMF_MOIST_A', _RC) + call MAPL_GetPointer(EXPORT, EDMF_FRC, 'EDMF_FRC', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, edmf_dry_u, 'EDMF_DRY_U', _RC) + call MAPL_GetPointer(EXPORT, edmf_moist_u, 'EDMF_MOIST_U', _RC) + call MAPL_GetPointer(EXPORT, edmf_dry_v, 'EDMF_DRY_V', _RC) + call MAPL_GetPointer(EXPORT, edmf_moist_v, 'EDMF_MOIST_V', _RC) + call MAPL_GetPointer(EXPORT, edmf_dry_w, 'EDMF_DRY_W', _RC) + call MAPL_GetPointer(EXPORT, edmf_moist_w, 'EDMF_MOIST_W', _RC) + call MAPL_GetPointer(EXPORT, edmf_dry_qt, 'EDMF_DRY_QT', _RC) + call MAPL_GetPointer(EXPORT, edmf_moist_qt, 'EDMF_MOIST_QT', _RC) + call MAPL_GetPointer(EXPORT, edmf_dry_thl, 'EDMF_DRY_THL', _RC) + call MAPL_GetPointer(EXPORT, edmf_moist_thl, 'EDMF_MOIST_THL', _RC) + call MAPL_GetPointer(EXPORT, edmf_moist_qc, 'EDMF_MOIST_QC', _RC) + call MAPL_GetPointer(EXPORT, edmf_entx, 'EDMF_ENTR', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, edmf_depth, 'EDMF_DEPTH', _RC) !========== SHOC =========== - call MAPL_GetPointer(EXPORT, TKEDISSx, 'TKEDISS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TKEBUOY, 'TKEBUOY', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, TKESHEAR,'TKESHEAR', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, ISOTROPY,'ISOTROPY', ALLOC=.TRUE., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LSHOC, 'LSHOC', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LSHOC1, 'LSHOC1', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LSHOC2, 'LSHOC2', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, LSHOC3, 'LSHOC3', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, BRUNTSHOC, 'BRUNTSHOC', ALLOC=PDFALLOC, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SHOCPRNUM,'SHOCPRNUM', RC=STATUS) - VERIFY_(STATUS) - - call MAPL_GetPointer(INTERNAL, TKEDISS, 'TKEDISS' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, TKEDISSx, 'TKEDISS', _RC) + call MAPL_GetPointer(EXPORT, TKEBUOY, 'TKEBUOY', _RC) + call MAPL_GetPointer(EXPORT, TKESHEAR,'TKESHEAR', _RC) + call MAPL_GetPointer(EXPORT, ISOTROPY,'ISOTROPY', ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, LSHOC, 'LSHOC', _RC) + call MAPL_GetPointer(EXPORT, LSHOC1, 'LSHOC1', _RC) + call MAPL_GetPointer(EXPORT, LSHOC2, 'LSHOC2', _RC) + call MAPL_GetPointer(EXPORT, LSHOC3, 'LSHOC3', _RC) + call MAPL_GetPointer(EXPORT, BRUNTSHOC, 'BRUNTSHOC', ALLOC=PDFALLOC, _RC) + call MAPL_GetPointer(EXPORT, SHOCPRNUM,'SHOCPRNUM', _RC) + + call MAPL_GetPointer(INTERNAL, TKEDISS, 'TKEDISS' , _RC) ! Initialize some arrays LWCRT = RADLW - RADLWC @@ -3779,10 +3346,8 @@ subroutine REFRESH(IM,JM,LM,RC) call MAPL_TimerOn(MAPL,"---SURFACE") - call MAPL_GetPointer(IMPORT, SHOBS,'SHOBS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, LHOBS,'LHOBS', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, SHOBS,'SHOBS', _RC) + call MAPL_GetPointer(IMPORT, LHOBS,'LHOBS', _RC) if ( SCM_SL_FLUX == 1 ) then @@ -4030,8 +3595,7 @@ subroutine REFRESH(IM,JM,LM,RC) LOCK_ON = 0 ISOTROPY = 600. - call MAPL_TimerOn (MAPL,name="---SHOC" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerOn (MAPL,name="---SHOC" ,_RC) call RUN_SHOC( IM, JM, LM, LM+1, DT, & !== Inputs == @@ -4077,16 +3641,14 @@ subroutine REFRESH(IM,JM,LM,RC) if (associated(TKEDISSx)) TKEDISSx = TKEDISS KH(:,:,1:LM) = TKH(:,:,1:LM) - call MAPL_TimerOff (MAPL,name="---SHOC" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerOff (MAPL,name="---SHOC" ,_RC) end if ! DOSHOC condition ! Refresh diffusivities: First compute Louis... ! --------------------------------------------- - call MAPL_TimerOn (MAPL,name="---LOUIS" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerOn (MAPL,name="---LOUIS" ,_RC) if (DO_SHOC == 0) then if (JASON_LOUIS) then @@ -4117,11 +3679,9 @@ subroutine REFRESH(IM,JM,LM,RC) end if - call MAPL_TimerOff(MAPL,name="---LOUIS" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerOff(MAPL,name="---LOUIS" ,_RC) - call MAPL_TimerOn (MAPL,name="---LOCK" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerOn (MAPL,name="---LOCK" ,_RC) ! ...then add Lock. !-------------------- @@ -4533,8 +4093,7 @@ subroutine REFRESH(IM,JM,LM,RC) KHRAD = 0.0 end if DO_ENTRAIN - call MAPL_TimerOff(MAPL,name="---LOCK" ,RC=STATUS) - VERIFY_(STATUS) + call MAPL_TimerOff(MAPL,name="---LOCK" ,_RC) call MAPL_TimerOn (MAPL,"---POSTLOCK") @@ -5372,26 +4931,20 @@ subroutine DIFFUSE(IM,JM,LM,RC) ! Get info for idealized SCM surface layer - call MAPL_GetResource(MAPL, SCM_SL, 'SCM_SL:', default=0, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource(MAPL, SCM_SL, 'SCM_SL:', default=0, _RC) ! Prescribed surface exchange coefficients if ( SCM_SL /= 0 ) then - call MAPL_GetResource(MAPL, SCM_SL_FLUX, 'SCM_SL_FLUX:', default=0, RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetResource(MAPL, SCM_SH, 'SCM_SH:', default=0., RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetResource(MAPL, SCM_LH, 'SCM_LH:', default=0., RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetResource(MAPL, SCM_SL_FLUX, 'SCM_SL_FLUX:', default=0, _RC) + call MAPL_GetResource(MAPL, SCM_SH, 'SCM_SH:', default=0., _RC) + call MAPL_GetResource(MAPL, SCM_LH, 'SCM_LH:', default=0., _RC) CU => cu_scm CT => ct_scm CQ => ct_scm - call MAPL_GetPointer(IMPORT, SHOBS,'SHOBS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, LHOBS,'LHOBS', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, SHOBS,'SHOBS', _RC) + call MAPL_GetPointer(IMPORT, LHOBS,'LHOBS', _RC) end if @@ -5402,14 +4955,12 @@ subroutine DIFFUSE(IM,JM,LM,RC) ! wrt the surface values. !---------------------------------------------------------- - call ESMF_StateGet(IMPORT, 'TR' , TR, RC=STATUS); VERIFY_(STATUS) + call ESMF_StateGet(IMPORT, 'TR' , TR, _RC) if (DO_WAVES/=0 .and. DO_SEA_SPRAY/=0) then - call MAPL_GetPointer(IMPORT, SH_SPRAY_, 'SHFX_SPRAY', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, SH_SPRAY_, 'SHFX_SPRAY', _RC) - call MAPL_GetPointer(IMPORT, LH_SPRAY_, 'LHFX_SPRAY', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, LH_SPRAY_, 'LHFX_SPRAY', _RC) SH_SPRAY = SH_SPRAY_ LH_SPRAY = LH_SPRAY_ @@ -5421,31 +4972,29 @@ subroutine DIFFUSE(IM,JM,LM,RC) where (LH_SPRAY > LH_SPRAY_MAX) LH_SPRAY = LH_SPRAY_MAX end if - call ESMF_StateGet(EXPORT, 'TRI', TRI, RC=STATUS); VERIFY_(STATUS) + call ESMF_StateGet(EXPORT, 'TRI', TRI, _RC) ! Get pointers to exports of U,V and S that diffuse sees ! Required for SYNCTQ (ALLOC=.TRUE.) - call MAPL_GetPointer(EXPORT, UAFDIFFUSE , 'UAFDIFFUSE' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, VAFDIFFUSE , 'VAFDIFFUSE' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SAFDIFFUSE , 'SAFDIFFUSE' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, QAFDIFFUSE , 'QAFDIFFUSE' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, UAFDIFFUSE , 'UAFDIFFUSE' , ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, VAFDIFFUSE , 'VAFDIFFUSE' , ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, SAFDIFFUSE , 'SAFDIFFUSE' , ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, QAFDIFFUSE , 'QAFDIFFUSE' , ALLOC=.TRUE., _RC) - call MAPL_GetPointer(EXPORT, edmf_mf, 'EDMF_MF', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, edmf_entx, 'EDMF_ENTR', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, edmf_mf, 'EDMF_MF', _RC) + call MAPL_GetPointer(EXPORT, edmf_entx, 'EDMF_ENTR', _RC) ! Count the firlds in TR... !-------------------------- - call ESMF_FieldBundleGet(TR, fieldCOUNT=KM, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldBundleGet(TR, fieldCOUNT=KM, _RC) ! ...and make sure the other bundles are the same. !------------------------------------------------- - call ESMF_FieldBundleGet(TRI, FieldCount=K , RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldBundleGet(TRI, FieldCount=K , _RC) _ASSERT(KM==K,'needs informative message') ! Pressure thickness of layers @@ -5462,41 +5011,34 @@ subroutine DIFFUSE(IM,JM,LM,RC) ! Get the Kth Field and its name from tracer bundle !-------------------------------------------------- - call ESMF_FieldBundleGet(TR, K, FIELD, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldBundleGet(TR, K, FIELD, _RC) - call ESMF_FieldGet(FIELD, name=NAME, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldGet(FIELD, name=NAME, _RC) ! Get item's diffusion type (U, S or Q; default is Q) !---------------------------------------------------- call ESMF_AttributeGet(FIELD, NAME="DiffuseLike", & - VALUE=TYPE, DEFAULTVALUE=dflt_q, RC=STATUS) - VERIFY_(STATUS) + VALUE=TYPE, DEFAULTVALUE=dflt_q, _RC) ! Get item's friendly status (default is not friendly) !----------------------------------------------------- call ESMF_AttributeGet(FIELD, NAME="FriendlyToTURBULENCE", & - VALUE=FRIENDLY, DEFAULTVALUE=dflt_false, RC=STATUS) - VERIFY_(STATUS) + VALUE=FRIENDLY, DEFAULTVALUE=dflt_false, _RC) ! Get item's weighting (default is unweighted tendencies) !-------------------------------------------------------- call ESMF_AttributeGet(FIELD, NAME="WeightedTendency", & - VALUE=WEIGHTED, DEFAULTVALUE=dflt_false, RC=STATUS) - VERIFY_(STATUS) + VALUE=WEIGHTED, DEFAULTVALUE=dflt_false, _RC) ! Get pointer to the quantity, its tendency, its surface value, ! the surface flux, and the sensitivity of the surface flux. ! ------------------------------------------------------------- - call ESMFL_BundleGetPointerToData(TR , NAME, S , RC=STATUS) - VERIFY_(STATUS) - call ESMFL_BundleGetPointerToData(TRI , trim(NAME)//'IT' , SOI, RC=STATUS) - VERIFY_(STATUS) + call ESMFL_BundleGetPointerToData(TR , NAME, S , _RC) + call ESMFL_BundleGetPointerToData(TRI , trim(NAME)//'IT' , SOI, _RC) ! Surface values, fluxes and sensitivities exist only for S, U, V and Q; ! all other quantities are left unassociated (zero flux). @@ -5504,12 +5046,9 @@ subroutine DIFFUSE(IM,JM,LM,RC) nullify(SRG, SF, SDF) select case (trim(NAME)) case ('S','U','V','Q') - call MAPL_GetPointer(IMPORT, SRG, trim(NAME)//'HAT', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SF , trim(NAME)//'FLX', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SDF, trim(NAME)//'DFL', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, SRG, trim(NAME)//'HAT', _RC) + call MAPL_GetPointer(EXPORT, SF , trim(NAME)//'FLX', _RC) + call MAPL_GetPointer(EXPORT, SDF, trim(NAME)//'DFL', _RC) end select ! The quantity must exist; others are optional. @@ -5793,15 +5332,13 @@ subroutine RUN2 ( GC, IMPORT, EXPORT, CLOCK, RC ) ! Get my name and set-up traceback handle ! --------------------------------------- - call ESMF_GridCompGet( GC, NAME=COMP_NAME, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_GridCompGet( GC, NAME=COMP_NAME, _RC) Iam = trim(COMP_NAME) // 'Run2' ! Get my internal MAPL_Generic state !----------------------------------- - call MAPL_GetObjectFromGC ( GC, MAPL, RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetObjectFromGC ( GC, MAPL, _RC) call MAPL_TimerOn(MAPL,"TOTAL") call MAPL_TimerOn(MAPL,"-RUN2") @@ -5812,31 +5349,26 @@ subroutine RUN2 ( GC, IMPORT, EXPORT, CLOCK, RC ) call MAPL_Get( MAPL, IM=IM, JM=JM, LM=LM, & LATS = LATS, & INTERNAL_ESMF_STATE=INTERNAL, & - RC=STATUS ) - VERIFY_(STATUS) + _RC) ! Get configuration from component !--------------------------------- - call ESMF_GridCompGet( GC, CONFIG = CF, RC=STATUS ) - VERIFY_(STATUS) + call ESMF_GridCompGet( GC, CONFIG = CF, _RC) ! Get application's timestep from configuration !---------------------------------------------- - call ESMF_ConfigGetAttribute( CF, DT, Label="RUN_DT:" , RC=STATUS) - VERIFY_(STATUS) + call ESMF_ConfigGetAttribute( CF, DT, Label="RUN_DT:" , _RC) - call MAPL_GetPointer(IMPORT,VARFLT, 'VARFLT', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT,VARFLT, 'VARFLT', _RC) ! Solve the free atmosphere problem ! --------------------------------- call MAPL_TimerOn (MAPL,"--UPDATE") - call UPDATE(IM,JM,LM,LATS,RC=STATUS) - VERIFY_(STATUS) + call UPDATE(IM,JM,LM,LATS,_RC) call MAPL_TimerOff(MAPL,"--UPDATE") ! All done with RUN @@ -5930,80 +5462,70 @@ subroutine UPDATE(IM,JM,LM,LATS,RC) ALLOC_TMP = .FALSE. - call MAPL_GetPointer(INTERNAL, TKH , 'TKH' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, TKEDISS, 'TKEDISS' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, TKH , 'TKH' , _RC) + call MAPL_GetPointer(INTERNAL, TKEDISS, 'TKEDISS' , _RC) - call MAPL_GetPointer(EXPORT, QTX , 'QT' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SLX , 'SL' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, QTFLXTRB , 'QTFLXTRB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SLFLXTRB , 'SLFLXTRB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, UFLXTRB , 'UFLXTRB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, VFLXTRB , 'VFLXTRB' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, QTX , 'QT' , ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, SLX , 'SL' , ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, QTFLXTRB , 'QTFLXTRB' , _RC) + call MAPL_GetPointer(EXPORT, SLFLXTRB , 'SLFLXTRB' , _RC) + call MAPL_GetPointer(EXPORT, UFLXTRB , 'UFLXTRB' , _RC) + call MAPL_GetPointer(EXPORT, VFLXTRB , 'VFLXTRB' , _RC) ! MF contribution, used to calculate TRB fluxes above - call MAPL_GetPointer(INTERNAL, SLFLXMF , 'SLFLXMF' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, QTFLXMF , 'QTFLXMF' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, MFAW , 'MFAW' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, SLFLXMF , 'SLFLXMF' , _RC) + call MAPL_GetPointer(INTERNAL, QTFLXMF , 'QTFLXMF' , _RC) + call MAPL_GetPointer(INTERNAL, MFAW , 'MFAW' , _RC) ! Used in update_moments for ADG PDF (requires all of above) - call MAPL_GetPointer(EXPORT, WSL, 'WSL' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, WQT, 'WQT' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, WSL, 'WSL' , ALLOC=.TRUE., _RC) + call MAPL_GetPointer(EXPORT, WQT, 'WQT' , ALLOC=.TRUE., _RC) - call MAPL_GetPointer(EXPORT, KETRB , 'KETRB' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KESRF , 'KESRF' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KETOP , 'KETOP' , RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, KEINT , 'KEINT' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, KETRB , 'KETRB' , _RC) + call MAPL_GetPointer(EXPORT, KESRF , 'KESRF' , _RC) + call MAPL_GetPointer(EXPORT, KETOP , 'KETOP' , _RC) + call MAPL_GetPointer(EXPORT, KEINT , 'KEINT' , _RC) - call MAPL_GetPointer(EXPORT, DPDTTRB, 'DPDTTRB', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, DPDTTRB, 'DPDTTRB', _RC) call MAPL_GetPointer(EXPORT, SRFDIS, 'SRFDIS', & alloc=associated(KETRB) .or. associated(KESRF), & - RC=STATUS) - VERIFY_(STATUS) + _RC) call MAPL_GetPointer(EXPORT, INTDIS, 'INTDIS', & alloc=associated(KETRB) .or. associated(KEINT), & - RC=STATUS) - VERIFY_(STATUS) + _RC) call MAPL_GetPointer(EXPORT, TOPDIS, 'TOPDIS', & alloc=associated(KETRB) .or. associated(KETOP), & - RC=STATUS) - VERIFY_(STATUS) + _RC) HGT_SURFACE = 50.0 if (LM .eq. 72) HGT_SURFACE = 0.0 - call MAPL_GetResource( MAPL, HGT_SURFACE, 'HGT_SURFACE:', default=HGT_SURFACE, RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GetResource( MAPL, HGT_SURFACE, 'HGT_SURFACE:', default=HGT_SURFACE, _RC) CAP_INTDIS = 1.0 ! Kelvin [per time step done when applied] if (LM .eq. 72) CAP_INTDIS = 0.0 - call MAPL_GetResource (MAPL, CAP_INTDIS, trim(COMP_NAME)//"_CAP_INTDIS:", default=CAP_INTDIS, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, CAP_INTDIS, trim(COMP_NAME)//"_CAP_INTDIS:", default=CAP_INTDIS, _RC) CAP_TOPDIS = 1.0 ! Kelvin [per time step done when applied] if (LM .eq. 72) CAP_TOPDIS = 0.0 - call MAPL_GetResource (MAPL, CAP_TOPDIS, trim(COMP_NAME)//"_CAP_TOPDIS:", default=CAP_TOPDIS, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, CAP_TOPDIS, trim(COMP_NAME)//"_CAP_TOPDIS:", default=CAP_TOPDIS, _RC) - call MAPL_GetResource (MAPL, DO_SHOC, trim(COMP_NAME)//"_DO_SHOC:", default=0, RC=STATUS); VERIFY_(STATUS) + call MAPL_GetResource (MAPL, DO_SHOC, trim(COMP_NAME)//"_DO_SHOC:", default=0, _RC) ! SHVC Resource parameters. SHVC_EFFECT can be set to zero to turn-off SHVC. ! SHVC_EFFECT = 1. is the tuned value for 2 degree horizontal resolution. ! It should be set to a lower number at higher resolution. - call MAPL_GetResource( MAPL, SHVC_EFFECT, 'SHVC_EFFECT:', default=0. , RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GetResource( MAPL, SHVC_EFFECT, 'SHVC_EFFECT:', default=0. , _RC) DO_SHVC = SHVC_EFFECT > 0.0 if(DO_SHVC) then - call MAPL_GetResource( MAPL, SHVC_CRIT, 'SHVC_CRIT:' , default=300. , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetResource( MAPL, SHVC_ALPHA, 'SHVC_ALPHA:' , default=1. , RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetResource( MAPL, SHVC_1500, 'SHVC_1500:' , default=2100., RC=STATUS ) - VERIFY_(STATUS) - call MAPL_GetResource( MAPL, SHVC_ZDEPTH, 'SHVC_ZDEPTH:', default=3500., RC=STATUS ) - VERIFY_(STATUS) + call MAPL_GetResource( MAPL, SHVC_CRIT, 'SHVC_CRIT:' , default=300. , _RC) + call MAPL_GetResource( MAPL, SHVC_ALPHA, 'SHVC_ALPHA:' , default=1. , _RC) + call MAPL_GetResource( MAPL, SHVC_1500, 'SHVC_1500:' , default=2100., _RC) + call MAPL_GetResource( MAPL, SHVC_ZDEPTH, 'SHVC_ZDEPTH:', default=3500., _RC) call MAPL_GetResource( MAPL, SHVC_SCALING,'SHVC_SCALING:',default=1.0 , RC=STATUS ) end if @@ -6015,25 +5537,19 @@ subroutine UPDATE(IM,JM,LM,LATS,RC) ! Get imports !------------ - call MAPL_GetPointer(IMPORT, PLE, 'PLE', RC=STATUS); VERIFY_(STATUS) - call MAPL_GetPointer(IMPORT, ZLE, 'ZLE', RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, PLE, 'PLE', _RC) + call MAPL_GetPointer(IMPORT, ZLE, 'ZLE', _RC) ! Get the tendecy sensitivities computed in RUN1 !----------------------------------------------- - call MAPL_GetPointer(INTERNAL, DKS, 'DKS', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, DKV, 'DKV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, DKQ, 'DKQ', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, DKS, 'DKS', _RC) + call MAPL_GetPointer(INTERNAL, DKV, 'DKV', _RC) + call MAPL_GetPointer(INTERNAL, DKQ, 'DKQ', _RC) - call MAPL_GetPointer(INTERNAL, EKV, 'EKV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, FKV, 'FKV', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(INTERNAL, SINC, 'SINC', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(INTERNAL, EKV, 'EKV', _RC) + call MAPL_GetPointer(INTERNAL, FKV, 'FKV', _RC) + call MAPL_GetPointer(INTERNAL, SINC, 'SINC', _RC) ! Get the bundles containing the quantities to be diffused, ! their tendencies, their surface values, their surface @@ -6041,15 +5557,14 @@ subroutine UPDATE(IM,JM,LM,LATS,RC) ! wrt the surface values. !---------------------------------------------------------- - call ESMF_StateGet(IMPORT, 'TR' , TR, RC=STATUS); VERIFY_(STATUS) + call ESMF_StateGet(IMPORT, 'TR' , TR, _RC) - call ESMF_StateGet(EXPORT, 'TRI', TRI, RC=STATUS); VERIFY_(STATUS) + call ESMF_StateGet(EXPORT, 'TRI', TRI, _RC) ! Count them... !-------------- - call ESMF_FieldBundleGet(TR , FieldCount=KM, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldBundleGet(TR , FieldCount=KM, _RC) ! and make sure the other bundles are the same. !---------------------------------------------- @@ -6089,11 +5604,11 @@ subroutine UPDATE(IM,JM,LM,LATS,RC) DZ = ZLE(:,:,0:LM-1) - ZLE(:,:,1:LM) ! Layer thickness (positive m) ! Diagnostics - call MAPL_GetPointer(EXPORT, HGTLM5 , 'HGTLM5' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, HGTLM5 , 'HGTLM5' , _RC) if(associated(HGTLM5)) then HGTLM5 = ZL0(:,:,LM-5) end if - call MAPL_GetPointer(EXPORT, LM50M , 'LM50M' , RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, LM50M , 'LM50M' , _RC) if(associated(LM50M)) then LM50M = LM do L=LM,2,-1 @@ -6148,11 +5663,9 @@ subroutine UPDATE(IM,JM,LM,LATS,RC) KS = 0 do K = 1,KM - call ESMF_FieldBundleGet(TR, K, FIELD, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldBundleGet(TR, K, FIELD, _RC) - call ESMF_FieldGet(FIELD, name=NAME, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldGet(FIELD, name=NAME, _RC) if (NAME == 'S') then KS=KK(1); KK(1)=K; KK(K)=KS @@ -6211,7 +5724,7 @@ subroutine UPDATE(IM,JM,LM,LATS,RC) ! Get pointer to export S after update required for SYNCTQ (ALLOC=.TRUE.) !---------------------------------------------------- - call MAPL_GetPointer(EXPORT, SAFUPDATE , 'SAFUPDATE' , ALLOC=.TRUE., RC=STATUS); VERIFY_(STATUS) + call MAPL_GetPointer(EXPORT, SAFUPDATE , 'SAFUPDATE' , ALLOC=.TRUE., _RC) ! Loop over all quantities to be diffused. !----------------------------------------- @@ -6227,51 +5740,41 @@ subroutine UPDATE(IM,JM,LM,LATS,RC) ! Get Kth field from bundle !-------------------------- - call ESMF_FieldBundleGet(TR, K, FIELD, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldBundleGet(TR, K, FIELD, _RC) - call ESMF_FieldGet(FIELD, name=NAME, RC=STATUS) - VERIFY_(STATUS) + call ESMF_FieldGet(FIELD, name=NAME, _RC) ! Get item's diffusion type (U, S or Q; default is Q) !---------------------------------------------------- call ESMF_AttributeGet(FIELD, NAME="DiffuseLike", & - VALUE=TYPE, DEFAULTVALUE=dflt_Q, RC=STATUS) - VERIFY_(STATUS) + VALUE=TYPE, DEFAULTVALUE=dflt_Q, _RC) ! Get item's friendly status (default is not friendly) !----------------------------------------------------- call ESMF_AttributeGet(FIELD, NAME="FriendlyToTURBULENCE", & - VALUE=Friendly, DEFAULTVALUE=dflt_false, RC=STATUS) - VERIFY_(STATUS) + VALUE=Friendly, DEFAULTVALUE=dflt_false, _RC) ! Get item's weighting (default is unweighted tendencies) !-------------------------------------------------------- call ESMF_AttributeGet(FIELD, NAME="WeightedTendency", & - VALUE=WEIGHTED, DEFAULTVALUE=dflt_false, RC=STATUS) - VERIFY_(STATUS) + VALUE=WEIGHTED, DEFAULTVALUE=dflt_false, _RC) ! Get pointers to the quantity, its tendency, its surface increment, ! the preliminary surface flux, and the sensitivity of the surface ! flux to the surface value. ! ------------------------------------------------------------------ - call ESMFL_BundleGetPointerToData(TR , NAME, S , RC=STATUS) - VERIFY_(STATUS) - call ESMFL_BundleGetPointerToData(TRI , trim(NAME)//'IT' , SOI, RC=STATUS) - VERIFY_(STATUS) + call ESMFL_BundleGetPointerToData(TR , NAME, S , _RC) + call ESMFL_BundleGetPointerToData(TRI , trim(NAME)//'IT' , SOI, _RC) nullify(DSG, SF, SDF) select case (trim(NAME)) case ('S','U','V','Q') - call MAPL_GetPointer(IMPORT, DSG, trim(NAME)//'DEL', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SF , trim(NAME)//'FLX', RC=STATUS) - VERIFY_(STATUS) - call MAPL_GetPointer(EXPORT, SDF, trim(NAME)//'DFL', RC=STATUS) - VERIFY_(STATUS) + call MAPL_GetPointer(IMPORT, DSG, trim(NAME)//'DEL', _RC) + call MAPL_GetPointer(EXPORT, SF , trim(NAME)//'FLX', _RC) + call MAPL_GetPointer(EXPORT, SDF, trim(NAME)//'DFL', _RC) end select ! Point to the appropriate sensitivity