fix new_q typo in mp_fer_hires.F90

Author: grantfirl

physics/MP/Ferrier_Aligo/mp_fer_hires.F90

@@ -287,10 +287,10 @@ SUBROUTINE mp_fer_hires_run(NCOL, NLEV, DT ,SPEC_ADV             &
 !aligo
        DO K = 1, LM
        DO I= IMS, IME
-         cwm(i,k) = cwm(i,k)/(1.0_kind_phys-new_q(i,k))
-         new_qr(i,k) = new_qr(i,k)/(1.0_kind_phys-new_q(i,k))
-         new_qi(i,k) = new_qi(i,k)/(1.0_kind_phys-new_q(i,k))
-         new_ql(i,k) = new_ql(i,k)/(1.0_kind_phys-new_q(i,k))
+         cwm(i,k) = cwm(i,k)/(1.0_kind_phys-new_qv(i,k))
+         new_qr(i,k) = new_qr(i,k)/(1.0_kind_phys-new_qv(i,k))
+         new_qi(i,k) = new_qi(i,k)/(1.0_kind_phys-new_qv(i,k))
+         new_ql(i,k) = new_ql(i,k)/(1.0_kind_phys-new_qv(i,k))
        ENDDO
        ENDDO
 !aligo
@@ -299,7 +299,7 @@ SUBROUTINE mp_fer_hires_run(NCOL, NLEV, DT ,SPEC_ADV             &
             CALL FER_HIRES(                                             &
                    DT=DT,RHgrd=RHGRD                                    &
                   ,PRSI=prsi,P_PHY=p_phy,T_PHY=new_t                    &
-                  ,Q=new_q,QT=cwm                                       &
+                  ,Q=new_qv,QT=cwm                                      &
                   ,LOWLYR=LOWLYR,SR=SR,TRAIN_PHY=train_phy              &
                   ,F_ICE_PHY=F_ICE,F_RAIN_PHY=F_RAIN                    &
                   ,F_RIMEF_PHY=F_RIMEF                                  &
@@ -318,9 +318,9 @@ SUBROUTINE mp_fer_hires_run(NCOL, NLEV, DT ,SPEC_ADV             &
 ! - Convert dry qc,qr,qi back to wet mixing ratio
     DO K = 1, LM
      DO I= IMS, IME
-        new_ql(i,k) = new_ql(i,k)/(1.0_kind_phys+new_q(i,k))
-        new_qi(i,k) = new_qi(i,k)/(1.0_kind_phys+new_q(i,k))
-        new_qr(i,k) = new_qr(i,k)/(1.0_kind_phys+new_q(i,k))
+        new_ql(i,k) = new_ql(i,k)/(1.0_kind_phys+new_qv(i,k))
+        new_qi(i,k) = new_qi(i,k)/(1.0_kind_phys+new_qv(i,k))
+        new_qr(i,k) = new_qr(i,k)/(1.0_kind_phys+new_qv(i,k))
      ENDDO
     ENDDO