450 |
#else |
#else |
451 |
Kgm_tmp = GM_isopycK |
Kgm_tmp = GM_isopycK |
452 |
#endif |
#endif |
453 |
#ifdef ALLOW_KAPGM_CONTROL |
#if (defined (ALLOW_AUTODIFF) && defined (ALLOW_KAPGM_CONTROL)) |
454 |
& + GM_skewflx*kapgm(i,j,k,bi,bj) |
& + GM_skewflx*kapgm(i,j,k,bi,bj) |
455 |
#else |
#else |
456 |
& + GM_skewflx*GM_background_K |
& + GM_skewflx*GM_background_K |
609 |
#else |
#else |
610 |
& ( GM_isopycK |
& ( GM_isopycK |
611 |
#endif |
#endif |
612 |
#ifdef ALLOW_KAPGM_CONTROL |
#if (defined (ALLOW_AUTODIFF) && defined (ALLOW_KAPGM_CONTROL)) |
613 |
& - GM_skewflx*kapgm(i,j,k,bi,bj) |
& - GM_skewflx*kapgm(i,j,k,bi,bj) |
614 |
#else |
#else |
615 |
& - GM_skewflx*GM_background_K |
& - GM_skewflx*GM_background_K |
797 |
#else |
#else |
798 |
& ( GM_isopycK |
& ( GM_isopycK |
799 |
#endif |
#endif |
800 |
#ifdef ALLOW_KAPGM_CONTROL |
#if (defined (ALLOW_AUTODIFF) && defined (ALLOW_KAPGM_CONTROL)) |
801 |
& - GM_skewflx*kapgm(i,j,k,bi,bj) |
& - GM_skewflx*kapgm(i,j,k,bi,bj) |
802 |
#else |
#else |
803 |
& - GM_skewflx*GM_background_K |
& - GM_skewflx*GM_background_K |