LOGICAL GM_useK3D
& GM_useK3D, GM_K3D_smooth, GM_K3D_use_constK,
IF (GM_useK3D) THEN
IF (.NOT. GM_useK3D) THEN
IF ( GM_useK3D) THEN
CALL WRITE_0D_L( GM_useK3D, INDEX_NONE,
IF ( GM_useK3D .AND. .NOT. GM_AdvForm) THEN
IF (GM_useK3D) CALL GMREDI_READ_PICKUP( niter0, myThid )
GM_useK3D = .FALSE.
& GM_K3D_gamma, GM_useK3D, GM_K3D_vecFreq,
IF (.NOT. GM_useK3D) RETURN
& .OR. GM_useK3D