Console Output
+ diff --exclude=.git --exclude=version_clubb_core.txt --exclude=version_silhs.txt -r clubb clubb_release
diff '--exclude=.git' '--exclude=version_clubb_core.txt' '--exclude=version_silhs.txt' -r clubb/src/advance_microphys_module.F90 clubb_release/src/advance_microphys_module.F90
1735,1737d1734
<
< real( kind = core_rknd ), dimension(1,gr%nz) :: &
< wm_zt_col
1864,1865c1861
<
< wm_zt_col(i,:) = wm_zt
---
>
1868,1869c1864,1865
< call term_ma_zt_lhs( gr%nz, 1, wm_zt_col, gr%weights_zt2zm, & ! intent(in)
< gr%invrs_dzt, gr%invrs_dzm, & ! intent(in)
---
> call term_ma_zt_lhs( gr%nz, wm_zt, gr%weights_zt2zm(i,:,:), & ! intent(in)
> gr%invrs_dzt(i,:), gr%invrs_dzm(i,:), & ! intent(in)
2544c2540
< * rho_ds_zm * V_hm * gr%weights_zt2zm(i,mk,t_above)
---
> * rho_ds_zm * V_hm * gr%weights_zt2zm(i,t_above,mk)
2550,2551c2546,2547
< * ( rho_ds_zm * V_hm * gr%weights_zt2zm(i,mk,t_below) &
< - rho_ds_zmm1 * V_hmm1 * gr%weights_zt2zm(i,mkm1,t_above) )
---
> * ( rho_ds_zm * V_hm * gr%weights_zt2zm(i,t_below,mk) &
> - rho_ds_zmm1 * V_hmm1 * gr%weights_zt2zm(i,t_above,mkm1) )
2556c2552
< * rho_ds_zmm1 * V_hmm1 * gr%weights_zt2zm(i,mkm1,t_below)
---
> * rho_ds_zmm1 * V_hmm1 * gr%weights_zt2zm(i,t_below,mkm1)
3006c3002
< * rho_ds_zm * Vhmphmp_impcm * gr%weights_zt2zm(i,mk,t_above)
---
> * rho_ds_zm * Vhmphmp_impcm * gr%weights_zt2zm(i,t_above,mk)
3013c3009
< * gr%weights_zt2zm(i,mk,t_below) &
---
> * gr%weights_zt2zm(i,t_below,mk) &
3015c3011
< * gr%weights_zt2zm(i,mkm1,t_above) )
---
> * gr%weights_zt2zm(i,t_above,mkm1) )
3021c3017
< * rho_ds_zmm1 * Vhmphmp_impcm1 * gr%weights_zt2zm(i,mkm1,t_below)
---
> * rho_ds_zmm1 * Vhmphmp_impcm1 * gr%weights_zt2zm(i,t_below,mkm1)