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

Feature/mzp

Author: SamuelTrahanNOAA

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)

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 ),                        &