Finalize WRFV4.3.2 by merging release-v4.3.2 branch onto master.

README

@@ -1,4 +1,4 @@
-WRF Model Version 4.3.1
+WRF Model Version 4.3.2
 
 https://www2.mmm.ucar.edu/wrf/users/
 

Registry/Registry.EM_COMMON

@@ -3071,7 +3071,7 @@ package   nolsmscheme    sf_surface_physics==0       -             -
 package   slabscheme     sf_surface_physics==1       -             -
 package   lsmscheme      sf_surface_physics==2       -             state:flx4,fvb,fbur,fgsn,smcrel,xlaidyn
 package   ruclsmscheme   sf_surface_physics==3       -             state:smfr3d,keepfr3dflag,soilt1,rhosnf,snowfallac,precipfr,acrunoff
-package   clmscheme      sf_surface_physics==5       -             state:numc,nump,sabv,sabg,lwup,lhsoi,lhveg,lhtran,snl,snowdp,wtc,wtp,h2osno,t_grnd,t_veg,h2ocan,h2ocan_col,t2m_max,t2m_min,t2clm,t_ref2m,q_ref2m,h2osoi_liq_s1,h2osoi_liq_s2,h2osoi_liq_s3,h2osoi_liq_s4,h2osoi_liq_s5,h2osoi_liq1,h2osoi_liq2,h2osoi_liq3,h2osoi_liq4,h2osoi_liq5,h2osoi_liq6,h2osoi_liq7,h2osoi_liq8,h2osoi_liq9,h2osoi_liq10,h2osoi_ice_s1,h2osoi_ice_s2,h2osoi_ice_s3,h2osoi_ice_s4,h2osoi_ice_s5,h2osoi_ice1,h2osoi_ice2,h2osoi_ice3,h2osoi_ice4,h2osoi_ice5,h2osoi_ice6,h2osoi_ice7,h2osoi_ice8,h2osoi_ice9,h2osoi_ice10,t_soisno_s1,t_soisno_s2,t_soisno_s3,t_soisno_s4,t_soisno_s5,t_soisno1,t_soisno2,t_soisno3,t_soisno4,t_soisno5,t_soisno6,t_soisno7,t_soisno8,t_soisno9,t_soisno10,dzsnow1,dzsnow2,dzsnow3,dzsnow4,dzsnow5,snowrds1,snowrds2,snowrds3,snowrds4,snowrds5,t_lake1,t_lake2,t_lake3,t_lake4,t_lake5,t_lake6,t_lake7,t_lake8,t_lake9,t_lake10,h2osoi_vol1,h2osoi_vol2,h2osoi_vol3,h2osoi_vol4,h2osoi_vol5,h2osoi_vol6,h2osoi_vol7,h2osoi_vol8,h2osoi_vol9,h2osoi_vol10,albedosubgrid,lhsubgrid,hfxsubgrid,lwupsubgrid,q2subgrid,sabvsubgrid,sabgsubgrid,nrasubgrid,swupsubgrid,t_veg24,t_veg240,fsun,fsun24,fsun240,fsd24,fsd240,fsi24,fsi240,laip,pct_pft
+package   clmscheme      sf_surface_physics==5       -             state:numc,nump,sabv,sabg,lwup,lhsoi,lhveg,lhtran,snl,snowdp,wtc,wtp,h2osno,t_grnd,t_veg,h2ocan,h2ocan_col,t2m_max,t2m_min,t2clm,t_ref2m,q_ref2m,h2osoi_liq_s1,h2osoi_liq_s2,h2osoi_liq_s3,h2osoi_liq_s4,h2osoi_liq_s5,h2osoi_liq1,h2osoi_liq2,h2osoi_liq3,h2osoi_liq4,h2osoi_liq5,h2osoi_liq6,h2osoi_liq7,h2osoi_liq8,h2osoi_liq9,h2osoi_liq10,h2osoi_ice_s1,h2osoi_ice_s2,h2osoi_ice_s3,h2osoi_ice_s4,h2osoi_ice_s5,h2osoi_ice1,h2osoi_ice2,h2osoi_ice3,h2osoi_ice4,h2osoi_ice5,h2osoi_ice6,h2osoi_ice7,h2osoi_ice8,h2osoi_ice9,h2osoi_ice10,t_soisno_s1,t_soisno_s2,t_soisno_s3,t_soisno_s4,t_soisno_s5,t_soisno1,t_soisno2,t_soisno3,t_soisno4,t_soisno5,t_soisno6,t_soisno7,t_soisno8,t_soisno9,t_soisno10,dzsnow1,dzsnow2,dzsnow3,dzsnow4,dzsnow5,snowrds1,snowrds2,snowrds3,snowrds4,snowrds5,t_lake1,t_lake2,t_lake3,t_lake4,t_lake5,t_lake6,t_lake7,t_lake8,t_lake9,t_lake10,h2osoi_vol1,h2osoi_vol2,h2osoi_vol3,h2osoi_vol4,h2osoi_vol5,h2osoi_vol6,h2osoi_vol7,h2osoi_vol8,h2osoi_vol9,h2osoi_vol10,albedosubgrid,lhsubgrid,hfxsubgrid,lwupsubgrid,q2subgrid,sabvsubgrid,sabgsubgrid,nrasubgrid,swupsubgrid,t_veg24,t_veg240,fsun,fsun24,fsun240,fsd24,fsd240,fsi24,fsi240,laip,pct_pft_input
 package   noahmpscheme   sf_surface_physics==4       -             state:isnowxy,tvxy,tgxy,canliqxy,canicexy,eahxy,tahxy,cmxy,chxy,fwetxy,sneqvoxy,alboldxy,qsnowxy,qrainxy,wslakexy,zwtxy,waxy,wtxy,tsnoxy,zsnsoxy,snicexy,snliqxy,lfmassxy,rtmassxy,stmassxy,woodxy,stblcpxy,fastcpxy,xsaixy,taussxy,t2mvxy,t2mbxy,q2mvxy,q2mbxy,tradxy,neexy,gppxy,nppxy,fvegxy,qinxy,runsfxy,runsbxy,ecanxy,edirxy,etranxy,fsaxy,firaxy,aparxy,psnxy,savxy,sagxy,rssunxy,rsshaxy,bgapxy,wgapxy,tgvxy,tgbxy,chvxy,chbxy,shgxy,shcxy,shbxy,evgxy,evbxy,ghvxy,ghbxy,irgxy,ircxy,irbxy,trxy,evcxy,chleafxy,chucxy,chv2xy,chb2xy,chstarxy,smoiseq,smcwtdxy,rechxy,deeprechxy,fdepthxy,areaxy,rivercondxy,riverbedxy,eqzwt,pexpxy,qrfxy,qrfsxy,qspringxy,qspringsxy,qslatxy,stepwtd,rechclim,gddxy,grainxy,croptype,planting,harvest,season_gdd,cropcat,pgsxy,soilcomp,soilcl1,soilcl2,soilcl3,soilcl4,irfract,sifract,mifract,fifract,irnumsi,irnummi,irnumfi,irwatsi,irwatmi,irwatfi,irsivol,irmivol,irfivol,ireloss,irrsplh
 package   ctsmscheme     sf_surface_physics==6       -             - 
 package   pxlsmscheme    sf_surface_physics==7       -             state:t2_ndg_new,q2_ndg_new,t2_ndg_old,q2_ndg_old,t2obs,q2obs,vegf_px,imperv,canfra,lai_px,wwlt_px,wfc_px,wsat_px,clay_px,csand_px,fmsand_px
@@ -3086,6 +3086,7 @@ package   drip           sf_surf_irr_alloc==2        -             state:irrigat
 package   sprinkler      sf_surf_irr_alloc==3        -             state:irrigation,irr_rand_field
 
 
+package   lesscheme      bl_pbl_physics==0           -             -
 package   ysuscheme      bl_pbl_physics==1           -             -
 package   myjpblscheme   bl_pbl_physics==2           -             state:tke_pbl,el_pbl
 package   gfsscheme      bl_pbl_physics==3           -             -

Registry/registry.chem

@@ -207,7 +207,7 @@ state    real  dustload_1    ij       misc         1         -       r      "dus
 state    real  dustload_2    ij       misc         1         -       r      "dustload_2"     "dust loading for size 2"        "ug/m2"
 state    real  dustload_3    ij       misc         1         -       r      "dustload_3"     "dust loading for size 3"        "ug/m2"
 state    real  dustload_4    ij       misc         1         -       r      "dustload_4"     "dust loading for size 4"        "ug/m2"
-state    real  dustload_5    ij       misc         1         -       r      "dustload_5"     "total dust loading"             "ug/m2"
+state    real  dustload_5    ij       misc         1         -       r      "dustload_5"     "dust loading for size 5"        "ug/m2"
 state    real  depvelocity   ij       misc         1         -       rh      "drydepvel"    "dust dry deposition velocity "         "m/s"
 state    real  setvel_1      ij       misc         1         -       r      "setvel_1"     "dust gravitational settling velocity for size 1"    "m/s"
 state    real  setvel_2      ij       misc         1         -       r      "setvel_2"     "dust gravitational settling velocity for size 2"    "m/s"
@@ -1342,7 +1342,7 @@ state    real  ph_pan          ikj     misc        1         -      r        "PH
 state    real  ph_acet         ikj     misc        1         -      r        "PHOTR102"              "acetone photolysis rate" "min{-1}"
 state    real  ph_mglo         ikj     misc        1         -      r        "PHOTR103"              "mglo photolysis rate" "min{-1}"
 state    real  ph_hno4_2       ikj     misc        1         -      r        "PHOTR104"              "mglo photolysis rate" "min{-1}"
-state    real  ph_clno2        ikj     misc        1         -      rh        "PHOTR204"                "CLNO2 Photolysis Rate" "min{-1}"
+state    real  ph_clno2        ikj     misc        1         -      r        "PHOTR204"                "CLNO2 Photolysis Rate" "min{-1}"
 # mozart photolysis rates
 state    real  ph_n2o          ikj     misc        1         -      r        "PHOTR114"              "n2o photolysis rate" "min{-1}"
 state    real  ph_pooh         ikj     misc        1         -      r        "PHOTR118"              "pooh photolysis rate" "min{-1}"
@@ -1365,9 +1365,9 @@ state    real  ph_mekooh       ikj     misc        1         -      r        "PH
 state    real  ph_tolooh       ikj     misc        1         -      r        "PHOTR133"              "tolooh photolysis rate" "min{-1}"
 state    real  ph_terpooh      ikj     misc        1         -      r        "PHOTR134"              "terpooh photolysis rate" "min{-1}"
 # cb05cl photolysis rates
-state    real  ph_cl2          ikj     misc        1         -      rh       "PHOTR201"              "cl2 photolysis rate" "min{-1}"
-state    real  ph_hocl         ikj     misc        1         -      rh       "PHOTR202"              "hocl photolysis rate" "min{-1}"
-state    real  ph_fmcl         ikj     misc        1         -      rh       "PHOTR203"              "fmcl photolysis rate" "min{-1}"
+state    real  ph_cl2          ikj     misc        1         -      r        "PHOTR201"              "cl2 photolysis rate" "min{-1}"
+state    real  ph_hocl         ikj     misc        1         -      r        "PHOTR202"              "hocl photolysis rate" "min{-1}"
+state    real  ph_fmcl         ikj     misc        1         -      r        "PHOTR203"              "fmcl photolysis rate" "min{-1}"
 # photolysis rad field diagnostic variables
 state    real  ph_par          ikj     misc        1         -      -        "ph_par"                "Photosynthetic Active Radiation"  "W m-2"
 state    real  ph_erythema     ikj     misc        1         -      -        "ph_erythema"           "Erythema Action Spectrum"         "W m-2"

arch/configure.defaults

@@ -1980,6 +1980,49 @@ LIB_BUNDLED     = \
                      $(WRF_SRC_ROOT_DIR)/frame/module_internal_header_util.o \
                      $(WRF_SRC_ROOT_DIR)/frame/pack_utils.o
 
+###########################################################
+#ARCH   Linux   armv7l aarch64, gnu OpenMPI #serial smpar dmpar dm+sm
+#
+DESCRIPTION     =       GNU ($SFC/$SCC)
+DMPARALLEL      =       # 1
+OMPCPP          =       # -D_OPENMP
+OMP             =       # -fopenmp
+OMPCC           =       # -fopenmp
+SFC             =       gfortran
+SCC             =       gcc
+CCOMP           =       gcc
+DM_FC           =       mpif90 -f90=$(SFC)
+DM_CC           =       mpicc -cc=$(SCC)
+FC              =       CONFIGURE_FC
+CC              =       CONFIGURE_CC
+LD              =       $(FC)
+RWORDSIZE       =       CONFIGURE_RWORDSIZE
+PROMOTION       =       #-fdefault-real-8
+ARCH_LOCAL      =       -DNONSTANDARD_SYSTEM_SUBR  CONFIGURE_D_CTSM
+CFLAGS_LOCAL    =       -w -O3 -c -march=native # -DRSL0_ONLY
+LDFLAGS_LOCAL   =
+CPLUSPLUSLIB    =
+ESMF_LDFLAG     =       $(CPLUSPLUSLIB)
+FCOPTIM         =       -O3 -ftree-vectorize -funroll-loops -march=native
+FCREDUCEDOPT    =       $(FCOPTIM)
+FCNOOPT         =       -O0
+FCDEBUG         =       # -g $(FCNOOPT)  # -fbacktrace -ggdb -fcheck=bounds,do,mem,pointer -ffpe-trap=invalid,zero,overflow
+FORMAT_FIXED    =       -ffixed-form
+FORMAT_FREE     =       -ffree-form -ffree-line-length-none
+FCSUFFIX        =
+BYTESWAPIO      =       -fconvert=big-endian -frecord-marker=4
+FCBASEOPTS_NO_G =       -w $(FORMAT_FREE) $(BYTESWAPIO) $(FCCOMPAT)
+FCBASEOPTS      =       $(FCBASEOPTS_NO_G) $(FCDEBUG)
+MODULE_SRCH_FLAG =
+TRADFLAG        =      CONFIGURE_TRADFLAG
+CPP             =      /lib/cpp CONFIGURE_CPPFLAGS
+AR              =      ar
+ARFLAGS         =      ru
+M4              =      m4 -G
+RANLIB          =      ranlib
+RLFLAGS         =
+CC_TOOLS        =      $(SCC)
+
 #insert new stanza here
 
 ###########################################################

configure

@@ -1044,8 +1044,8 @@ if [ -n "$NETCDF4" ] ; then
       echo "--enable-netcdf4                                                             "
       echo
       echo "OR set NETCDF_classic variable                                               "
-      echo "   bash/ksh : export NETCDF_classic=1
-      echo "        csh : setenv NETCDF_classic 1
+      echo "   bash/ksh : export NETCDF_classic=1                                        "
+      echo "        csh : setenv NETCDF_classic 1                                        "
       echo 
       echo "Then re-run this configure script                                            "
       echo

dyn_em/module_initialize_real.F

@@ -665,6 +665,19 @@ SUBROUTINE init_domain_rk ( grid &
          !  coarse grid since we are going to make the interface consistent
          !  in the model betwixt the CG and FG domains.
 
+         !  An important point is to inform the user if their request cannot
+         !  be satisfied. Do not skip over this quietly.
+
+         IF ( ( config_flags%smooth_cg_topo ) .AND. &
+              ( internal_time_loop .EQ. 1 ) .AND. &
+              ( grid%id .EQ. 1 ) .AND. &
+              ( flag_soilhgt .NE. 1) ) THEN
+            CALL wrf_message    (' --- ERROR: NML option smooth_cg_topo=T')
+            CALL wrf_message    ('            But found no soil elevation / terrain / topography data in metgrid files')
+            CALL wrf_message    ('            The field SOILHGT is required when smoothing the CG topography on d01')
+            CALL wrf_error_fatal('            If using ERA5 data, possibly need to add more time invariant fields')
+         END IF
+
          IF ( ( config_flags%smooth_cg_topo ) .AND. &
               ( internal_time_loop .EQ. 1 ) .AND. &
               ( grid%id .EQ. 1 ) .AND. &

inc/version_decl

@@ -1 +1 @@
-   CHARACTER (LEN=*), PARAMETER :: release_version = 'V4.3.1'
+   CHARACTER (LEN=*), PARAMETER :: release_version = 'V4.3.2'

main/depend.common

@@ -497,9 +497,7 @@ module_ra_rrtmg_lw.o: ../share/module_model_constants.o \
 		 module_ra_clWRF_support.o 
 module_ra_rrtmg_lwf.o: ../share/module_model_constants.o \
 		 module_ra_clWRF_support.o 
-module_ra_rrtmg_lwk.o: ../share/module_model_constants.o \
-                 module_ra_clWRF_support.o
-
+module_ra_rrtmg_lwk.o: ../share/module_model_constants.o
 
 
 module_physics_addtendc.o: \

phys/module_fr_fire_phys.F

@@ -709,7 +709,7 @@ subroutine read_namelist_fire(init_fuel_moisture)
     fmc_gc_initial_value(1)=fmc_1h
     fmc_gc_initial_value(2)=fmc_10h
     fmc_gc_initial_value(3)=fmc_100h
-    fmc_gc_initial_value(3)=fmc_1000h
+    fmc_gc_initial_value(4)=fmc_1000h
     fmc_gc_initial_value(5)=fmc_live
     !
     ! end initialization from scalars tied to a particular model with 5 fuel moisture classes

phys/module_mp_nssl_2mom.F

@@ -1208,7 +1208,7 @@ SUBROUTINE nssl_2mom_init(  &
         write(0,*) 'READ_NAMELIST: PROBLEM WITH NSSL_MP_PARAMS namelist: not found or bad token'
       ENDIF
         IF ( wrf_dm_on_monitor() .and. .not. wrote_namelist ) THEN
-          open(15,file='namelist.output',status='old',action='readwrite', access='append',form='formatted')
+          open(15,file='namelist.output',status='old',action='readwrite', position='append',form='formatted')
           write(15,NML=nssl_mp_params)
           close(15)
           wrote_namelist = .true.

phys/module_mp_ntu.F

@@ -6203,7 +6203,7 @@ SUBROUTINE LARGE_DT(DT,TK1D,QV1D,P1D,RHO,QC1D,QR1D,QI1D,QS1D,    &
             ENDIF
             QCLsh = QCLS1*ESH*VTQSH*NH1D*(SASR2*GSM3+SASR1*2.*GH2*GSM2+&
                     GH3*GSM1)
-            NCLsh = NCLS1*ESH*VTNSH*NH1D*(SASR2*GS3*+SASR1*2.*GH2*GS2+ &
+            NCLsh = NCLS1*ESH*VTNSH*NH1D*(SASR2*GS3 +SASR1*2.*GH2*GS2+ &
                     GH3)
             QCLsh = MIN(QCLsh,QS1D*iDT)
             NCLsh = MIN(NCLsh,NS1D*iDT)
@@ -6220,7 +6220,7 @@ SUBROUTINE LARGE_DT(DT,TK1D,QV1D,P1D,RHO,QC1D,QR1D,QI1D,QS1D,    &
             ENDIF
             IF (AH1D.GE.ASMALL) THEN
                AhCLsh = (MVDX**2.-MVDH**2.)*NCLS1*ESH*VTASH*NH1D*(     &
-                        SASR2*GS3*+SASR1*2.*GH2*GS2+GH3)
+                        SASR2*GS3 +SASR1*2.*GH2*GS2+GH3)
             ENDIF
          ENDIF
          IF (QS1D.GE.QSMALL.AND.MVDS.GE.2.E-4) THEN

phys/module_ra_rrtmg_sw.F

@@ -9969,6 +9969,7 @@ SUBROUTINE RRTMG_SWRAD(                                        &
                        obscur                                     & ! amontornes-bcodina 2015/09 solar eclipses
                        )
 !------------------------------------------------------------------
+   USE MODULE_RA_CLWRF_SUPPORT, ONLY : read_CAMgases
    IMPLICIT NONE
 !------------------------------------------------------------------
    LOGICAL, INTENT(IN )      ::        warm_rain
@@ -10251,6 +10252,10 @@ SUBROUTINE RRTMG_SWRAD(                                        &
     integer:: idx_rei
     real:: corr
 
+#ifdef CLWRFGHG
+! Using data from CAMtr_volume_mixing_ratio data file
+    real(kind=8)                                 :: co2, n2o, ch4, cfc11, cfc12
+#else
 ! Set trace gas volume mixing ratios, 2005 values, IPCC (2007)
 ! carbon dioxide (379 ppmv) - this is being replaced by an annual function in v4.2
     real :: co2
@@ -10261,6 +10266,7 @@ SUBROUTINE RRTMG_SWRAD(                                        &
 ! nitrous oxide (319 ppbv)
     real :: n2o
     data n2o / 319.e-9 / 
+#endif
 ! Set oxygen volume mixing ratio (for o2mmr=0.23143)
     real :: o2
     data o2 / 0.209488 /
@@ -10350,6 +10356,11 @@ SUBROUTINE RRTMG_SWRAD(                                        &
 
 !-----CALCULATE SHORT WAVE RADIATION
 !                                                              
+#ifdef CLWRFGHG
+! Read time-varying trace gases concentrations and interpolate them to run date
+   CALL read_CAMgases(yr,julian,"RRTMG",co2,n2o,ch4,cfc11,cfc12)
+#endif
+
 ! All fields are ordered vertically from bottom to top
 ! Pressures are in mb
 

phys/module_ra_rrtmg_swf.F

@@ -11259,6 +11259,7 @@ SUBROUTINE RRTMG_SWRAD_FAST(                                &
                        xcoszen,yr,julian                          & ! jararias 2013/08
                                                                   )
 !------------------------------------------------------------------
+      USE MODULE_RA_CLWRF_SUPPORT, ONLY : read_CAMgases
       IMPLICIT NONE
 !------------------------------------------------------------------
    LOGICAL, INTENT(IN )      ::        warm_rain
@@ -11523,6 +11524,9 @@ SUBROUTINE RRTMG_SWRAD_FAST(                                &
     integer:: idx_rei
     real:: corr
 
+#ifdef CLWRFGHG
+    real(kind=8)                                 :: co2, n2o, ch4, cfc11, cfc12
+#else
 ! Set trace gas volume mixing ratios, 2005 values, IPCC (2007)
 ! carbon dioxide (379 ppmv) - this is being replaced by an annual function in v4.2
     real :: co2
@@ -11533,6 +11537,7 @@ SUBROUTINE RRTMG_SWRAD_FAST(                                &
 ! nitrous oxide (319 ppbv)
     real :: n2o
     data n2o / 319.e-9 / 
+#endif
 ! Set oxygen volume mixing ratio (for o2mmr=0.23143)
     real :: o2
     data o2 / 0.209488 /
@@ -11643,6 +11648,11 @@ SUBROUTINE RRTMG_SWRAD_FAST(                                &
 !                                                              
 ! All fields are ordered vertically from bottom to top
 ! Pressures are in mb
+!
+#ifdef CLWRFGHG
+! Read time-varying trace gases concentrations and interpolate them to run date.
+   CALL read_CAMgases(yr,julian,"RRTMG",co2,n2o,ch4,cfc11,cfc12)
+#endif
 
 ! jararias, 14/08/2013
       if (present(xcoszen)) then

phys/module_sf_noahmplsm.F

@@ -7919,8 +7919,8 @@ SUBROUTINE TRIGGER_IRRIGATION(parameters,NSOIL,ZSOIL,SH2O,FVEG,
       SMCAVL = 0.0
       SMCLIM = 0.0
       ! estimate available water and field capacity for the root zone
-      SMCAVL = (SH2O(1)-parameters%SMCWLT(1))*-1*ZSOIL(1)              ! current soil water (m) 
-      SMCLIM = (parameters%SMCREF(1)-parameters%SMCWLT(1))*-1*ZSOIL(1) ! available water (m)
+      SMCAVL = (SH2O(1)-parameters%SMCWLT(1))*(-1)*ZSOIL(1)              ! current soil water (m) 
+      SMCLIM = (parameters%SMCREF(1)-parameters%SMCWLT(1))*(-1)*ZSOIL(1) ! available water (m)
       DO K = 2, parameters%NROOT
          SMCAVL = SMCAVL + (SH2O(K)-parameters%SMCWLT(K))*(ZSOIL(K-1) - ZSOIL(K))
          SMCLIM = SMCLIM + (parameters%SMCREF(K)-parameters%SMCWLT(K))*(ZSOIL(K-1) - ZSOIL(K))

share/mediation_integrate.F

@@ -1052,7 +1052,7 @@ END SUBROUTINE start_domain
 !  De-reference dimension information stored in the grid data structure.
 !
 !  From the hybrid, construct the GPMs on isobaric surfaces and then interpolate those
-!  values on to the nested domain. 23 standard prssure levels are assumed here. For
+!  values on to the nested domain. 23 standard pressure levels are assumed here. For
 !  levels below ground, lapse rate atmosphere is assumed before the use of vertical
 !  spline interpolation 
 !

share/mediation_nest_move.F

@@ -378,7 +378,7 @@ END SUBROUTINE copy_3d_field
 !  De-reference dimension information stored in the grid data structure.
 !
 !  From the hybrid, construct the GPMs on isobaric surfaces and then interpolate those
-!  values on to the nested domain. 23 standard prssure levels are assumed here. For
+!  values on to the nested domain. 23 standard pressure levels are assumed here. For
 !  levels below ground, lapse rate atmosphere is assumed before the use of vertical
 !  spline interpolation
 !