LOGICAL myPa_Tend_Cgrid
& myPa_StaV_Cgrid, myPa_Tend_Cgrid,
CALL WRITE_0D_L( myPa_Tend_Cgrid, INDEX_NONE,
IF ( myPa_Tend_Cgrid ) diagCode(2:2) = 'U'
IF ( myPa_Tend_Cgrid ) diagCode(2:2) = 'V'
myPa_Tend_Cgrid = .TRUE.
IF ( myPa_applyTendV .AND. myPa_Tend_Cgrid ) THEN
IF ( myPa_applyTendU .AND. myPa_Tend_Cgrid ) THEN