_RL GM_facTrL2dz
& GM_facTrL2dz, GM_facTrL2ML, GM_maxTransLay,
CALL WRITE_0D_RL( GM_facTrL2dz, INDEX_NONE,
GM_facTrL2dz = 1.
minTransLay = GM_facTrL2dz*( depthZ(k) - depthZ(k+1) )
minTransLay = GM_facTrL2dz*( depthZ(k-1) - depthZ(k) )