From 576c2d063eeb79876f4ff19ee13d4b2b53e984f9 Mon Sep 17 00:00:00 2001 From: mpagowski Date: Fri, 15 Jan 2021 23:35:26 +0000 Subject: [PATCH] delete use_random_factor --- gsdchem/gsd_chem_seas_wrapper.F90 | 2 +- gsdchem/seas_mod.F90 | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/gsdchem/gsd_chem_seas_wrapper.F90 b/gsdchem/gsd_chem_seas_wrapper.F90 index ab8ea7379..b6bfe889e 100644 --- a/gsdchem/gsd_chem_seas_wrapper.F90 +++ b/gsdchem/gsd_chem_seas_wrapper.F90 @@ -133,7 +133,7 @@ subroutine gsd_chem_seas_wrapper_run(im, kte, kme, ktau, dt, garea, & u_phy,v_phy,chem,rho_phy,dz8w,u10,v10,ust,p8w,tsk, & xland,xlat,xlong,dxy,g,emis_seas, & seashelp,num_emis_seas,num_moist,num_chem,seas_opt, & - random_factor,.false., & + random_factor, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte) diff --git a/gsdchem/seas_mod.F90 b/gsdchem/seas_mod.F90 index c73f25ac2..612fbd169 100644 --- a/gsdchem/seas_mod.F90 +++ b/gsdchem/seas_mod.F90 @@ -30,7 +30,7 @@ subroutine gocart_seasalt_driver(ktau,dt,alt,t_phy,moist,u_phy, & v_phy,chem,rho_phy,dz8w,u10,v10,ustar,p8w,tsk, & xland,xlat,xlong,area,g,emis_seas, & seashelp,num_emis_seas,num_moist,num_chem,seas_opt, & - random_factor,use_random_factor, & + random_factor, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte ) @@ -55,7 +55,6 @@ subroutine gocart_seasalt_driver(ktau,dt,alt,t_phy,moist,u_phy, & xlat, & xlong,area, & random_factor - LOGICAL, INTENT(IN) :: use_random_factor REAL(kind=kind_phys), DIMENSION( ims:ime , jms:jme ), & INTENT(OUT ) :: seashelp REAL(kind=kind_phys), DIMENSION( ims:ime , kms:kme , jms:jme ), &