tauThetaClimRelax=0. _d 0
CALL WRITE_0D_R8( tauThetaClimRelax, INDEX_NONE,
lambdaThetaClimRelax(I,J,bi,bj) = 1./tauThetaClimRelax
& tauThetaClimRelax, tauSaltClimRelax, latBandClimRelax,
IF ( tauThetaClimRelax .EQ. 0.D0 ) THEN
& tauThetaClimRelax,
_RL tauThetaClimRelax
tauThetaClimRelax = 0.D0