LOGICAL myPa_applyTendS
& myPa_applyTendT, myPa_applyTendS,
CALL WRITE_0D_L( myPa_applyTendS, INDEX_NONE,
myPa_applyTendS = .FALSE.
IF ( myPa_applyTendS ) THEN