*ID MR310399
*DECLARE BLOKINIT
*D OOM1F405.2095,OOM1F405.2096
*I OOM1F405.2107
            Ath0 = athkdftv_mom(i,k)
*I OOM1F405.2180
            Ath0 = athkdftv_mom(i,k)
*D OOM1F405.2217
            Ath0 = 1.
*DECLARE ISOPYC_A
*D ISOPYC_A.170,ISOPYC_A.171
*I ISOPYC_A.182
            Ath0 = athkdftv_mom(i,k)
*I ISOPYC_A.335
            Ath0 = athkdftv_mom(i,k)
*D ISOPYC_A.346,ISOPYC_A.347
*I ISOPYC_A.357 
              Ath0 = athkdftv_mom(i,k)
*D ISOPYC_A.413
            Ath0 = ((2.*dz2r(k)))*csu(j)
*D ISOPYC_A.493,ISOPYC_A.494
*I ISOPYC_A.504 
            Ath0 = athkdftu_mom(i,k)
*D ISOPYC_A.555 
            Ath0 = 1.
