Merge pull request NCAR#74 from mpagowski/feature/mzp

Feature/mzp
SamuelTrahanNOAA · Jan 22, 2021 · a6c9f99 · a6c9f99
2 parents 6c2d4e8 + 576c2d0
commit a6c9f99
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git 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
@@ -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 ),                        &