_RS GM_bolFac1d(Nr)
& GM_isoFac2d, GM_bolFac2d, GM_isoFac1d, GM_bolFac1d
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op25
& *(GM_bolFac1d(km1)+GM_bolFac1d(k))*op5
& - GM_skewflx*GM_background_K*GM_bolFac1d(k)
GM_bolFac1d(k) = 1. _d 0
& GM_bolFac1d, Nr, 1, myThid )
CALL WRITE_GLVEC_RS( 'GM_bolFac1d', ' ', GM_bolFac1d,