@@ -97,7 +97,6 @@ module SU2G_GridCompMod
9797 real :: aviation_layers(4 ) ! heights of the LTO, CDS and CRS layers
9898 real :: fSO4anth ! Fraction of anthropogenic emissions that are SO4
9999 ! logical :: firstRun = .true.
100- ! real, pointer :: h2o2_init(:,:,:)
101100
102101! PRC: logic for GMI coupling
103102 logical :: using_GMI
@@ -533,8 +532,6 @@ subroutine Initialize (GC, IMPORT, EXPORT, CLOCK, RC)
533532 LONS = LONS, &
534533 LATS = LATS, __RC__ )
535534
536- ! allocate(self%h2o2_init(size(lats,1),size(lats,2),self%km), __STAT__)
537-
538535! Is SU data driven?
539536! ------------------
540537 call determine_data_driven (COMP_NAME, data_driven, __RC__)
@@ -1256,13 +1253,6 @@ subroutine Run2 (GC, import, export, clock, RC)
12561253
12571254 xoh = 0.0
12581255 xno3 = 0.0
1259-
1260- if (workspace% firstRun) then
1261- xh2o2 = MAPL_UNDEF
1262- h2o2_init = MAPL_UNDEF
1263- workspace% firstRun = .false.
1264- end if
1265-
12661256 xh2o2 = h2o2_init
12671257
12681258 call SulfateUpdateOxidants (nymd, nhms, LONS, LATS, airdens, self% km, self% cdt, &
@@ -1332,7 +1322,7 @@ subroutine Run2 (GC, import, export, clock, RC)
13321322 call MAPL_VarSpecGet(InternalSpec(n), SHORT_NAME= short_name, __RC__)
13331323 call MAPL_GetPointer(internal, NAME= short_name, ptr= int_ptr, __RC__)
13341324 call WetRemovalUFS (self% km, self% klid, n, self% cdt, ' sulfate' , &
1335- KIN, MAPL_GRAV, self% radius(n), rainout_eff, self% washout_tuning, &
1325+ KIN, MAPL_GRAV, self% radius(n), rainout_eff, self% washout_tuning, &
13361326 self% wet_radius_thr, int_ptr, ple, t, airdens, pfl_lsan, pfi_lsan, SUWT, __RC__)
13371327 enddo
13381328
0 commit comments