Skip to content

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)