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