IF ( GGL90mixingLengthMin .LE. 0. ) THEN
CALL WRITE_0D_R8( GGL90mixingLengthMin, INDEX_NONE,
& GGL90mixingLengthMin, GGL90viscMax, GGL90diffMax,
GGL90mixingLengthMin = 1.0 _d -08
GGL90mixingLength(I,J,K) = GGL90mixingLengthMin
& GGL90mixingLengthMin)
_RL GGL90mixingLengthMin
& GGL90mixingLengthMin,